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Vorwort 


Zum ersten Mal auf der Orga-Technik 1984 vorgestellt, konnte 
sich zunächst keiner für die neue Computergeneration bestehend 
aus den Computern C16, C116 und Plus/4 (damals nannte man 
ihn noch C264) begeistern. 


Auch zahlreiche Namensänderungen, die Commodore bei dem 
größten aus dieser Reihe vornahm, waren da recht sinnlos. Es 
schien, ja es war später sogar von diversen Fachzeitschriften 
bestätigt: Dieser Computer sollte der größte Flopp sein, den 
Commodore je auf den Markt gebracht hatte. 


Wieso das jedoch so war, nun, das weiß bis heute keiner so 
recht. Es mag wahrscheinlich daran liegen, daß dieser Computer 
nur mit sich selbst kompatibel ist, was seine Hardwareeigen- 
schaften angeht. Die Leistung, die der C16 z.B. bringt, sind je- 
doch durchaus vergleichbar mit denen des C64. Und dort kommt 
ein weiterer Nachteil. Warum sollte zu der damaligen Zeit je- 
mand 800 DM für einen Computer auf den Tisch legen, mit 
dem sein Anwender anschließend nur die eingebaute Software 
nutzen konnte. Da machte sich der Commodore 64 mit seinem 
zwar sehr bescheidenen BASIC, jedoch dafür mit der wesentlich 
größeren Softwarepalette doch schon erheblich besser, zumal, 
wenn man den Preis der dann noch benötigten Software mit ein- 
kalkulierte, dieser viel preiswerter war. 


Wie dem auch sei, eines hat Commodore jedenfalls erkannt: Den 
zu hohen Preis für alle Geräte dieser "neuen" Reihe. So war es 
Ende des Jahres 1985 möglich, einen C16 mit Datasette bereits 
für, man lese und staune, 99,- DM zu bekommen. Nun öffnete 
Commodore den Leuten die Türen zur Computerei, die durch 
die sonst für sie viel zu hohen Kosten, die mit einer Anschaf- 
fung eines Computers verbunden waren, abgeschreckt wurden. 


Jedoch, wie könnte es anders sein, das nächste Problem kam auf 
diese glücklichen Neu-Computerbesitzer zu. Es gab und gibt bis 
heute kaum vernünftige Software zu kaufen, und nur vereinzelt 
Lektüre zu diesem Computer. Dieses Problem erkannten wir 
nach einiger Zeit, angespornt eben von solchen Computerfans, 


die uns schon fast verzweifelt fragten, ob nicht in geraumer Zeit 
irgendwelche Bücher für den C16 erscheinen würden, und es 
entstand das Grafikbuch zu diesen neuen Commodore-Rechnern 
C16, C116, Plus/4. 


Nicht unerwähnt möchten wir an dieser Stelle unsere beiden 
Helfer lassen, es sind dies Torsten Fahle und Uwe Thiemann, 
die uns bei der Fertigstellung dieses Buches sehr große Dienste 
erwiesen. 


Ihnen wünschen wir nun viel Spaß bei der Lektüre des Buches 
und hoffen, daß dieses Buch etwas dazu beträgt, den Software- 
mangel, der bei diesen Computern besteht, dadurch auszuglei- 
chen, daß Sie nachher in der Lage sind, gute Programme für 
diese Commodore-Computer zu schreiben. 


Klaus Löffelmann 
Axel Plenge 


Lippstadt, im Juni 1986 
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1. Einführung - Die Grafikbefehle des C16, 
C116 und Plus/4 


Zu diesem Kapitel muß man folgendes anmerken. Ich habe 
schon beim Commodore 128 die Erfahrung gemacht, daß immer 
wieder Leute zu mir kamen und mich um Rat bei dieser oder 
jener Befehlserkärung fragten. Das ist auch nicht sehr verwun- 
derlich, denn wer kennt die Aufmachung und Vollständigkeit 
der Commodore-Handbücher nicht? 


Aus diesem Grund habe ich in diesem Buch, wie das auch beim 
Grafikbuch zum Commodore 128 der Fall war, alle Befehlser- 
klärungen noch einmal ausführlich erarbeitet und mit gut les- 
baren und verstehbaren BASIC-Demoprogrammen versehen. Ein 
weiteres Faktum, das mich in diesem Beschluß bestätigte, war 
die Tatsache, daß es beim Schreiben von Programmen sehr 
mühselig ist, ständig zwischen Commodore-Handbuch und Gra- 
fikbuch hin und her zu blättern, weil man in einem Buch die 
Befehlssyntax eines Befehls und im anderen die Methode ir- 
gendeiner Problemlösung braucht. Hinzu kommt auch noch, daß 
sich an einigen Stellen im Handbuch zum C16, C116 und Plus/4 
Fehler eingeschlichen haben. 


Nun also zunächst einige Grundlagen zum Umgang mit den Be- 
fehlen, anschließend alle Grafikbefehle des C16, C116 und 
Plus/4. 


1.1 Grundlagen zum Umgang mit den Grafikbefehlen 


Zunächst einmal müssen wir klarstellen, was Grafik eigentlich 
ist. Im Grunde genommen kann man das, was man nach dem 
Einschalten des Computers zu Gesicht bekommt, schon als Gra- 
fik bezeichnen. Dann nämlich erscheint die sogenannte Textgra- . 
fik. Damit ist es auch schon möglich, recht hübsche Bilder zu 
erzeugen, wie das im folgenden Beispiel gemacht wird: 
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100 print u + er u 
110 print " +++ + + u 
120 print " - + +++ u 
130 print " + + + + u 
140 print " + + + ++ + u 
150 print " + + + u 
160 print " + + + +++ u" 
170 print " HrtttHt tr ++ + u 
180 print " + ++ + + + u 
190 print " + ++ 4 + + " 
200 print " + ++ + + + u 
210 print " + dr + + " 
220 print " Hr +4++t+++ " 
230 print " " 


Sie selbst werden sicherlich viel schönere Gebilde als dieses zu- 
stande bringen. Experimentieren Sie doch einmal! Probieren Sie 
dabei auch die Tastenkombinationen, die Sie jeweils links und 
rechts vor einer Buchstabentaste finden. Diese Zeichen, sie wer- 
den auch Grafikzeichen oder Sonderzeichen genannt, erreichen 
Sie jeweils mit der Commodore-Taste oder mit der Shift-Taste. 


Weiterhin ist es möglich, auch feinere Gebilde zu erzeugen, als 
es jemals mit der groben Textgrafik möglich wäre. Diese Grafi- 
kart nennt sich dann hochauflösende Grafik. Hochauflösend 
deswegen, weil Sie nun gezielt einzelne Punkte setzen können. 


Nehmen Sie dafür einmal das folgende Programm als Beispiel, 
ohne sich zunächst um die Funktionsweise des Programms Ge- 
danken zu machen: 


100 graphic 1,1 

110 box ‚50,160,100,100 

120 draw ‚100,100 to 75,70 to 50,100 
130 box ,‚100,130,150, 160 

140 box ,180,160,190,120 

150 circle ‚185,80,30,40,,,,12 

160 draw ‚0,161 to 319,161 
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170 draw ‚75,70 to 75,60 
180 draw ‚70,65 to 80,65 
190 box ,‚60,130,75,115 
200 paint ‚90,90 

210 paint ‚90,110 

220 paint ‚185,80 

230 paint ‚185,130 

240 paint ‚110,140 





Wie funktioniert nun so etwas? Nun, im Prinzip ist das ganz 
einfach. Der Bildschirm Ihres Computers ist wie ein Koordina- 
tensystem eingeteilt. Dabei liegt die Koordinate (0,0) in der lin- 
ken oberen Ecke. Ein Schaubild mag dieses verdeutlichen: 
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0 159 319 
Hr + +++ K- Achse 
# 
& 
e 
* 
+ 
+ 
99 + 
+ 
+ 
+ 
+ 
+ 
+ 
eN 
199 + 
Y-Achse 


Sie brauchen nun Ihrem Computer nur noch zu "sagen", an 
welcher Position Sie welches Gebilde plaziert haben möchten, 
und schon führt dieser das durch. Sie sehen selbst, so schwer ist 
das doch gar nicht. 


Leider ist es in dieser Auflösung nur möglich, einfarbige Bilder 
zu erzeugen. Aber es existiert noch eine weitere Grafikart, die 
sogannte Multicolor-Grafik. In der Multicolor-Grafik halbiert 
sich die Anzahl der horizontalen Punkte, also der Punkte, die 
auf der X-Achse liegen. Dafür stehen dann insgesamt vier Far- 
ben zur Verfügung. 


Die nun folgenden Befehle befassen sich mit diesem K.oordina- 
tensystem. Sie sollten, bevor Sie nun mit Eifer diese Befehle 
ausprobieren, zunächst alles über den Befehl "GRAPHIC" nach- 
lesen und die folgenden Dinge beherzigen: 


Sie können grundsätzlich die Parameter eines Grafikbefehls, die 
Sie nicht benötigen, weglassen. In der Regel wird für diesen 
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Parameter dann der Wert "0" eingesetzt. Anstelle dieses Parame- 
ters muß dann ein Komma gesetzt werden. 


1.1.1 Die hochauflösende Grafik 
Die BOX-Anweisung: 
Format: BOX fq,x1,yl,x2,y2,wn,au 


Parameter: - fq Farbquelle. 
0=Hintergrund 
l=Vordergrund 
2=Zusatzfarbe 1 
3=Zusatzfarbe 2 
Der Wert definiert die Quelle der 
Zeichenfarbe 


- xl,yl Koordinaten des linken, oberen 
Eckpunktes 
xl: HGR 0-319 MC 0-159 
yl: HGR 0-199 MC 0-199 


- x2,y2 Koordinaten des rechten, unteren 
Eckpunktes. Wertebereiche wie xl 
bzw. yl 


- wn Winkel, um den das Rechteck 
gedreht werden soll (in Grad). 
Voreingestellt ist der Wert 0. 


- au Legt fest, ob das Reckteck ausge- 
malt werden soll (1) oder nicht 


(0). 
Beispiel: BOX 1,10,10,100,100,45,1 


Funktion: Zeichnen eines Rechtecks 
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Erläuterungen: 


Dieser Befehl schließt gleich mehrere Optionen in sich ein: Das 
Rechteck ist ausfüllbar und läßt sich drehen. Die in den Para- 
metern angegebene Farbquelle gibt praktisch an, welche Farbe 
benutzt werden soll. Die Definition der einzelnen Farbquellen 
bewirkt der COLOR-Befehl. Dort werden die Quellen auch er- 
klärt. 


Beispielprogramme: 


100 rem EArRHHH HERR HHHRHHHHRHERHÄRHHÄHHÖHHURHR 


110 rem ### HH 
120 rem ##H box-demo 1 HER 
130 rem HR 7 DT Bere Le 
140 rem ### HHH 
150 rem ERHHHHRHHHHHHRRRHHHHRHHHHHEHHHHHHRRHHHHHHR 
160 : 

170 color 4,1,1 :rem rahmenfarbe 

180 color 0,1,1 :rem hintergrundfarbe 
190 color 1,5,1 :rem zeichenfarbe 

200 graphic 1,1 :rem hgr einschalten 
210 x1=30:x2=290 rem ausgangskoordinaten 
220 y1=10:y2=190 

eu: 

240 for w=0 to 40 step 3 :rem einmal nach rechts 
250 box 1,x1,y1,x2,y2,W :box zeichnen 


260 x1=x1+1.5:x2=x2-1.5 

270 yi=y1+1.5:y2=y2-1.5 

280 next w 

290 : 

300 for w=400 to 320 step -3 :rem dann weit nach links 
310 box 1,x1,y1,x2,y2,Ww 

320 x1=x1+1.5:x2=x2-1.5 

330 yi=y1+1.5:y2=y2-1.5 

340 next Ww 

aa 2 

360 for w=320 to 360 step 3 :rem und wieder Normal - 
370 box 1,x1,y1,x2,y2,Ww :rem stellung 
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380 x1=x1+1.5:x2=x2-1.5 
390 yi=-y1+1.5:y2=y2-1.5 
400 next w 


100 rem HHRHRHHHHHHHEHHRHHHHEHEHEHHHEHHHEREHHHHERHHHHHE 


110 rem ### HAH 
120 rem ### box-demo 2 HAH 
130 rem ff —— _  kenneneninnnn HHH 
140 rem ### HHH 
150 rem ER ERHHHHRERRHHHHRHRRRHHHHHHHHHHHHHR 
160 : 

170 color 4,1,1 :rem rahmenfarbe 

180 coloOr 0,1,1 :rem hintergrundfarbe 
190 color T,3,1 :rem zeichenfarbe 

200 graphic 1,1 :rem hgr einschalten 
210 : 

220 d=20:f=2 


230 for z=0 to 319 step 2 

240 y=40*sin(x/25)+100 

250 d=d+f:w=w+2 

260 if d>80 or d<O then f=-f 
270 box 1,z,y-20,z+d,y+d-20,w 
280 next z 
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Ein fiührun 


Der CIRCLE-Befehl 


Format: 
Parameter: - fq 
- X,Yy 
- xr 
pen yr 
- st 
-en 
- wn 
- SW 
Beispiel: 
Funktion: 
Erläuterungen: 
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CIRCLE fq,x,y,Xr,yr,st,en,wn,sw 
Farbquelle (siehe COLOR) 
Koordinaten des Mittelpunkts 
Radıus der Hauptachse 


Radius der Nebenachse 
Voreingestellt ist der Wert xr 


Startwinkel (in Grad) 
Voreingestellt ist der Wert 0 


Endwinkel (in Grad) 
Voreingestellt ist der Wert 360 


Winkel, um den die Figur 
gedreht werden soll (in Grad) 
Voreingestellt ist der Wert O 


Gibt den Winkelabstand zwischen 
zwei Berechnungspunkten an. 
Wertebereich: 1-255 -je kleiner 
der Wert, desto runder die 

Figur. Voreingestellt ist der 

Wert 2 


CIRCLE 1,100,100,60,30,,,40,3 


Zeichnen einer Ellipse, eines Kreises 
oder eines bestimmten Polygons. 


Der CIRCLE-Befehl ist sehr vielfältig. So ist es nicht nur mög- 
lich, Kreise oder Ellipsen zu zeichnen. Sogar Polygone sind mit 
diesem leistungsfähigen Befehl kein Problem. Hierbei ist der 
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Parameter sw sehr wichtig. Je kleiner dieser Wert, desto krei- 
sähnlicher das Gebilde. Die untenstehende Tabelle gibt über die 
konkreten Werte für diesen Parameter zur Polygonzeichnung 
mehr Aufschluß. 


Beispielprogramm: 


100 rem ERHHRHHHRRHERRHERRERRHÜHHEHHREHHHRÜRHHHHHHHHRHHR 


110 rem ### HHR 
120 rem ### circle-demo 1 HHR 
130 rem HH Were HHH 
140 rem #HH HR 
150 rem ERHHHHH EHRE HHHHRHHHHERHÖHHHRHUHOHHHHHHER 
160 : 

170 color 4,1,1 :rem rahmenfarbe 

180 color 0,1,1 :rem hintergrundfarbe 
190 color 1,5,1 :rem zeichenfarbe 

200 graphic 1,1 rem hgr einschalten 
210 : 


220 for x=1 to 120 step 3 

230 circle 1,160,100,100,100,,,x%,120 
240 circle 1,30,30,30,30, ,.%, 120 

250 circle 1,30,170,30,30,,,x%,120 
260 circle 1,290,170,30,30,,,x%,120 
270 circle 1,290,30,30,30,,,%,120 
280 circle 1,160,100,30,30,,,x%,120 
290 next x 


100 rem HRRHHRHHRHRRHEHRHRRHHHHERHHHRRHHHRRBERHHHRHHRER 


110 rem ### HHH 
120 rem ##A# circle-demo 2 HHH 
VEN Pen TEIL IE Bu ar HH 
140 rem ### HHH 
150 rem HERR HRREHHHRHHHHHHHHRRRR 
160 : 

170 color 4,1,1 :rem rahmenfarbe 

180 color 0,1,1 :rem hintergrundfarbe 


190 color 1,5,1 :rem zeichenfarbe 
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200 graphic 1,1 :rem hgr einschalten 
210 : 


220 for r=0 to 160 step 5 


230 circle 1,160,100,r,-(r-160)*.625,,,,12 
240 next 





vs 


vi bh, 
EIS 


k 


sr 


At 
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Tabelle für Polygone: 


Polygon Seitenwert 
Dreieck 120 
Viereck 90 
Fünfeck 72 
Sechseck 60 
Zehneck 36 
Zwölfeck 30 


Allgemein können Sie die Anzahl der Ecken eines Polygons 
durch folgende Formel errechnen: 


Anzahl der Ecken = 360 / sw 


Ein führun 


Der CHAR-Befehl 


Format: 

Parameter: - fq 
- ANY 
u z$ 
- IV 

Beispiel: 

Funktion: 

Erläuterungen: 
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CHAR fq,x,y,29,1v 


Farbauelle 
0=Hintergrundfarbe 
l=Vordergrundfarbe 
2=Zusatzfarbe 1 
3=Zusatzfarbe 2 


Koordinaten des Textanfangs 
x: 0-39 
y: 0-24 


Text, der ausgegeben werden soll 


0=Normale Darstellung 
l=reverse Darstellung 


CHAR 1,3,20,"Der CHAR-Befehl" 


Plaziert einen Text auf dem Grafik- 
bildschirm. 


Die Farbquelle gibt, wie der Name schon sagt, die Quelle an, 
aus der die zu benutzende Farbe stammt. Die Farbquelle wird 
bei dem COLOR-Befehl genauer erklärt. 


Es gibt im Commodore-BASIC sogenannte Steuerzeichen. Das 
sind Zeichen, die nicht gedruckt werden, sondern irgend eine 
Funktion auslösen. Diese Zeichen, deren Funktion im Anhang 
übrigens aufgelistet ist, funktionieren im Grafikmodus nicht!. 
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Der DRAW-Befehl 
Format: DRAW fa,xl,yl TO x2,y2 cuccanıe.. 
Parameter: - fq Farbquelle (siehe BOX) 


- xl,yl Koordinaten des Startpunktes 


- x2,y2 Koordinaten des Endpunktes 


Beispiel: DRAW 1,10,10 TO 20,50 
Funktion: Zeichnen einer Linie 
Erläuterungen: 


Mit dem DRAW-Befehl können beliebig viele Linien aneinan- 
dergefügt werden. Beispiel: DRAW 1,10,10 TO 20,50 TO 30,5. 
Sind Start- und Endpunkte gleich, so wird ein Punkt gezeichnet. 
Dieser Effekt wird auch erzielt, wenn Sie nur die ersten 3 Pa- 
rameter, ohne "TO", angeben. 


Wird das "TO" durch ein Komma ersetzt, so werden jeweils nur 
Punkte an die entsprechenden Koordinaten gesetzt und nicht mit 
Linien verbunden. 


Weiterhin haben Sie die Möglichkeit, vom Graphic-Cursor (siehe 
LOCATE) bis zu einem Endpunkt eine Linie zu ziehen. In die- 
sem Fall müssen die Anfangskoordinaten entfallen. Dann exi- 
stiert noch die Möglichkeit, relative Koordinaten anzugeben. Das 
bedeutet daß eine Linie relativ zu den zuvor angegebene Koor- 
dinaten gezeichnet wird. Schließlich ist es noch möglich, die 
Endkoordinaten einer Linie als Polarkoordinaten anzugeben. 


Damit existieren eine Reihe verschiedener BPE REN diesen 
Befehl anzuwenden. 
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DRAW M,X1,Y1 TO X2,Y2 : Löschen oder Setzen einer Linie 

DRAW M,X1,Y1 (, X2,Y2..): Setzen eines oder mehrerer Punkte 

DRAW M To xX1,Y1 : Zeichnen einer Linie vom 
Grafikcursor nach x1,y1 


DRAW M » Zeichnen oder Löschen eines 

: Punktes an der Grafcur.-Position 
DRAW M,X1,Y2 TO +X,+Y : zeichnen mit relat. Koordinaten 
DRAW M,X1,Y2 TO L;W : Zeichnen des Radius (Polakoord.) 


100 rem BRHHHRHHRH HH RHRRRHHERRHRRRRÄHHERHHHRHHHRRRTHR 


110 rem ### HHH 
120 rem ##HH draw-demo 1 HHH 
307er O5 en 2,703 
140 rem ### HHH 
150 rem HH RHRRHREHHHHRHHHHRHHRHHHHHHHHHOR 
160 : 

170 color 4,1,1 :rem rahmenfarbe 

180 color 0,1,1 rem hintergrundfarbe 
190 color 1,5,1 rem zeichenfarbe 

200 graphic 1,1 :rem hgr einschalten 
210 : 


220 for x=0 to 319 step 4 

230 y=40*sin(x/25)+100 

240 if f=0 then f=1:locate x,y 
250 draw 1 to x,y 

260 next x 


100 rem HHRrHHH EHER EHRE HH HRHHEHUHHHEHRÖHHHHHHERE 


110 rem ### HAR 
120 rem ### draw-demo 2 HAH 
‚sr no 0 —5ÖöÖöÖöÖöÖ&DP FFIR HAH 
140 rem ### HHR 
150 rem ER RHHRHHHHHHHHHHHHREHHHÄHHHHHHHRR 
160 : 

170 color 4,1,1 :rem rahmenfarbe 

180 color 0,1,1 :rem hintergrundfarbe 
190 color 1,5,1 :rem zeichenfarbe 


200 graphic 1,1 :rem hgr einschalten 
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210 : 

220 for x=0 to 319 step 4 

230 y=40*sin(x/25)+100 

240 if f=0 then f=1:xa=x:ya=y 

250 draw ‚x,y to xa,ya to 0,0 to 320-xa,200-ya to 320-x,200-y to 
319,0 

260 xa=sx:ya=y 

270 next 


100 rem BHHRHHERHHRRHRHRHRERHHHHHHHRHRHHHHHEHHÖHHRHEHHR 


110 rem ##H# RER 
120 rem ### draw-demo 3 BE 
130 rem — teninnirennnn HA 
140 rem ### FAR 
150 rem KHHHHRERHR RR HRRREHRHHHHEHHREHHRERHHHRRHHHHRER 
160 : 

170: color»4,1;7 :rem rahmenfarbe 

180 color 0,1,1 :rem hintergrundfarbe 
190 color 1,5,1 :rem zeichenfarbe 

200 graphic 1,1 :rem hgr einschalten 
210: 2 


220 for x=0 to 360 step 2 
230 draw „160,100 to 100;x 
240 draw ‚30,30 to 30;x 
250 draw ‚30,170 to 30;x 
260 draw „290,170 to 30;x 
270 draw ‚290,30 to 30;x 
280 next x 


Einführung 2:1 


ls s 
TER, 


DLR 
ah “ = Ki 
. 8 
an “un % a , 
. we 
% 
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Der LOCATE-Befehl 


Format: 


Parameter: - X,Y 


Beispiel: 


Funktion: 


Erläuterungen: 


LOCATE x,y 


Koordinaten des neuen Punktes. 
(scaliert) 


LOCATE 100,130 


Positioniert den grafischen Cursor auf 
dem Bildschirm. 


Der grafische Cursor ist nicht sichtbar und für alle grafischen 
Zeichenanweisungen der Ausgangspunkt. Nach der Ausführung 
einer Zeichenanweisung ist der letzte gezeichnete Punkt der 


neue Ausgangspunkt. 


Im Klartext: Um eine bestimmte Figur mit Grafikbefehlen vom 
Grafikcursor aus zu zeichnen, müssen Sie einfach die ersten X- 
und Y-Koordinaten weglassen. 
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Der PAINT-Befehl 
Format: PAINT fq,x,y,mo 
Parameter: - fq Farbquelle (siehe BOX) 


- x,y Koordinaten des Startpunktes 
(scaliert) 


- mo Legt fest, ob der auszumalende 
Bereich von der gewählten Farbe (0) 
oder einer anderen als der Hinter- 
grundfarbe umgeben ist (1) 

(siehe Erläuterungen) 


Beispiel: PAINT 1,100,100,0 


Funktion: Füllen eines grafischen Bereiches mit 
einer wählbaren Farbe. 


Erläuterungen: 


Der PAINT-Befehl dient dem Ausfüllen beliebiger Flächen. 
Diese müssen eindeutig begrenzt sein. Das bedeutet, daß die Be- 
grenzung lückenlos sein muß. Logischerweise muß der Start- 
punkt innerhalb der auszufüllenden Fläche sein. Nach soviel 
"muß" kann man nun auch wählen: Die Farbquellen sind die 
gleichen wie bei dem BOX-Befehl und werden natürlich auch 
mit dem COLOR-Befehl definiert (siehe dort). Nun gibt es aber 
noch zwei Möglichkeiten, wie die Fläche begrenzt ist: Die glei- 
che Farbe, wie die in der angegebenden Farbquelle, sowie eine 
fremde. Diese fremde Farbe kann nicht die Hintergrundfarbe 
sein, da die Begrenzung in einem solchen Fall nicht gegeben ist. 
Haben wir uns nun für eine Begrenzungsfarbe entschlossen, so 
geben wir den dazugehörenden Modus mit dem PAINT-Befehl 
an: O0 für die gleiche Farbe (wie in der angegebenden Farb- 
quelle), sowie 1 für die fremde Farbe. 
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Ein Beispiel soll dieses erläutern: 


100 rem HRAHHRRHHERRERERRRHHHERHRHENERHÜHHERHÜHHRHHUHHR 


110 rem #H# RAR 
120 rem ### paint-demo BE 
130 rem -esinnerenn HHR 
140 rem ### HHH 
150 rem EHER HHHHHHHHHRERROHHRHHHERHHRHR 
160 : 

170 color 4,1,1 :rem rahmenfarbe 

180 color 0,1,1 :rem hintergrundfarbe 
190 color 1,5,1 :rem zeichenfarbe 

200 graphic 1,1 :rem hgr einschalten 
210 : 

220 circle 1,160,100,50 :rem kreis zeichnen 
230 paint 1,160,100 :rem kreis mit zeichen- 
240 : :rem farbe ausmalen 
250 paint 0,160,100 :rem kreis mit hinter- 
260 : :rem grundfarbe ausmalen 


Die RDOT-Funktion 
Format: | x=RDOT(n) 


Parameter: -n Gibt an, welcher Wert mit der Funk- 
tion gelesen werden soll: 
0O=x-Position des grafischen Cursors. 
l=y-Position des grafischen Cursors. 
2=Farbquell-Code, aus dem die Farbe 
des Punktes bei der aktuellen Position 
des grafischen Cursors resultiert. 


Beispiel: x=RDOT(0) 


Funktion: Liefert die aktuelle Position des gra- 
fischen Cursors oder den für die Po- 
sition gültigen Farbcode der Farb- 
quelle. 
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Erläuterungen: 


Dieser Befehl schließt eigentlich zwei verschiedene Möglichkei- 
ten ein. Die erste Möglichkeit, die Sie durch diesen Befehl ha- 
ben, ist die, daß Sie die aktuelle Position des Grafikcursors ab- 
fragen können. Die zweite ermöglicht es Ihnen festzustellen, ob 
oder bzw. in welcher Farbe ein Punkt unter dem Grafikcursor 
zu sehen ist. Das folgende Beispiel, das zunächst viele Punkte 
auf den Bildschirm malt und dann die am weitestenauseinander- 
liegenden miteinander verbindet, soll dieses verdeutlichen: 


100 rem RE EHRREREREHHERHÜRENRHÜHHERHARE 


110 rem ### HR 
120 rem ### rdot -demo AH 
130 rem BAR ı ve een HHH 
140 rem ###H BIER 
150 TE HH HREROHHHHHHHRRHRBHHROHHR 
160 : 

170 color 4,1,1 :rem rahmenfarbe 

180 color 0,1,1 :rem hintergrundfarbe 
190 color 1,5,1 :rem zeichenfarbe 

200 graphic 1,1 :rem hgr einschalten 
210 box ,„0,0,319,199 

220 for z=0 to 100 :rem 100 punkte 

230 x=int(319*rnd(1)) :rem zufällig setzen 


240 y=int(199*rnd(1)) 
250 draw ‚X,Y 


260 next z 

2701: 

280 for y=0 to 199 :rem obersten punkt 

290 for x=0 to 319 rem suchen 

300 locate x,y rem GC setzen 

310 if rdot(2)=1 then 340 rem Punkt gefunden, => 340 
320 next x,y 

330 : 

340 x1=x:y1=y rem obersten punkt merken 


350 : 
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360 for y=199 to O step -1 :rem untersten punkt 

370 for x=319 to O step -1 rem suchen 

380 locate x,y :rem GC setzen 

390 if rdot(2)=1 then 420 :rem Punkt gefunden, => 420 
400 next x,y | 

410 : 

420 draw 1 to x1,y1 :rem linie zeichnen 


Der SCALE-Befehl 
Format: SCALE mo 
Parameter: - mo Modus. 


0=Scalierung ausschalten 
l=Scalierung einschalten 


Beispiele: SCALE | 

SCALE 0 
Funktion: Schaltet die Scalierung aus oder ein. 
Erläuterungen: 


Der SCALE-Befehl vermag den Wertebereich des Bildschirms in 
der Grafik zu erweitern. Dabei wird selbstverständlich die ma- 
xımale Auflösung von 320*200 Punkten in der HGR und 
160*200 in Multicolor beibehalten und nur die eigentliche Koor- 
dinate mit einem bestimmten Faktor multipliziert, so daß der 
Bildschirm nun eine Auflösung von 1024 mal 1024 Punkten er- 
haält. Dadurch werden alle Figuren auf dem Bildschirm logi- 
scherweise kleiner. Einen wesentlichen Vorteil hat dieser Befehl 
jedoch: Die lästige Umrechnung der Koordinaten bei diesem er- 
weiterten Koordinatensystem (dieses ist manchmal erforderlich, 
z. B. in der Statistik) entfällt. 


Ein führun 


Beispielprogramm: 
100 rem Er HHHHREHERHHHHHHRHHHHHHHÜHHÖHRRHRHUHR 
110 rem ### BL 
120 rem ### scale-demo HAH 
130 fe Ei 55 [ni HHH 
140 rem ##H FAR 
150 rem EHER HHHHHREHHHHHHRHHHHHHHRER 
160 : 
170 color 4,1,1 :rem rahmenfarbe 
180 color 0,1,1 :rem hintergrundfarbe 
190 color 1,5,1 rem zeichenfarbe 
200 graphic 1,1 :rem hgr einschalten 
210 3 
220 for r=100 to 10 step -5 :rem konz. kreise 
230 circle ‚160,100,r rem zeichnen 
240 next r 
250 scale 1 :rem skalierung ein 
260 for r=100 to 10 step -5 
270 circle ‚160,100,r :rem dieselben kreise 
280 next r 
290 scale O rem skalierung aus 
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1.1.2 Die Textgrafikbefehle 


Die Textgrafik ist eigentlich nichts anderes als die Gestaltung 
des Bildschirms mit normalen Textzeichen, wie wir ja schon 
anfangs gehört haben. Durch die nun folgenden Befehle ist es 
uns möglich, den Bildschirmaufbau sinnvoller als nur durch 
POKE- oder PRINT-Befehle zu gestalten. 


Der CHAR-Befehl (Textgrafik) 
Format: CHAR fqa,x,y,z$ 


Parameter: - fq : Farbquelle 
0=Hintergrundfarbe 
l=Vordergrundfarbe 
2=Zusatzfarbe 1 
3=Zusatzfarbe 2 
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- x,y Koordinaten des Textanfangs. 


x:0-39 bzw. 79 
y:0-24 
- 5 Text, der ausgegeben werden soll. 
Beispiel: CHAR 1,3,20,"Der CHAR-Befehl" 
Funktion: Plaziert einen bestimmten Text an ei- 


ner bestimmten Bildschirmstelle. 


Erläuterungen: 


Im Text enthaltene Steuerzeichen werden hier im Textmodus 
ausgeführt, jedoch können nur Strings, keine Fließkommata oder 
Integervariablen durch den CHAR-Befehl positioniert werden. 
Es gibt jedoch einen kleinen Trick, um dieses zu erreichen. 
Wandeln Sie zunächst Ihre Zahl mit dem STR$-Befehl in einen 
String um und positionieren Sie diesen dann durch den CHAR- 
Befehl. 


Als Beispiel für die gerade für diesen Befehl typische Textgrafik 
haben wir für Sie zwei Spieleprogramme für Ihren Computer 
programmiert, welche im folgenden ausgedruckt sind. Es handelt 
sich bei dem ersten Spiel um das bekannte Hang-Man-Spiel, das 
früher auch als beliebtes "unter-der-Schulbank-Spiel" unter dem 
Namen "Galgenmännchen" bekannt war. 


Beim zweiten Spiel handelt es sich um ein Spiel aus den Anfän- 
gen der Spielcomputer. Es nennt sich in unserem Fall "Squash" 
und ist auf Spielgeräte zurückzuführen, die damals unter so 
hochtrabenden Namen wie "Fußball", "Tennis" oder 
"Tontaubenschießen" verkauft wurden: 
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REM RM— — —- - - ne -—- - one nn Mi 
REM ”*»H— —- —- - -  - u% 
REM *- + 
REM -- HANG-MAN -— 
REM -- ._ 
REM -- CIF/03/86)  -- 
REM *- _* 
REM *H—- —- —- - - - - -- -- -- -- LE 
REM RR— — nn. HK 
COLORO, 3,0 

COLOR4, 1 

COLOR1,8,7 

VOL 7 

AZ = 5:REM ANZAHL DER WORTE PRO SCHWIERIGKEITSGRAD 


F =0 :REM ANZAHL DER FEHLERCMAX12) 
RUS=CHRSC1BI+” ”+CHRSC1I46):REM REVERSES SPACE 
MKS=""”:REM VARIABEL ZUM MERKEN DER BUCHSTABEN 
RESTORE 1820: REM AUF FRAGEWODERTER STELLEN 


:FOR J= 1 TO 8 :REM 8 SCWIERIGKEITSGRADE 
FOR I= 1 TO AZ 
READ F$CJ,I) :REM WOERTER EINLESEN 
: NEXT I 
:NEXT J 
SCENECLR 
CHAR ,B, 2, "ie=mmunnnnnnnnnnnnnen nn) 
CHAR, 8,3,” HANG MAN” 
CHAR,B,4, "=====.=-.---.-.-.-...-- 200 
CHAR, 16,10,” f"——P:REM OYYP 
CHAR, 16,11,” ® P:REN Q N 
CHAR, 16,12,”#13 P:REMN-M N 
CHAR,16,13,” I M:REN N 
CHAR, 16,14,” =» P:REMN MN 
CHAR, 16,15, > :RENPPPPE® 
CHAR, 0,18,””:REM CURSOR POSITIONIEREN 


PRINT» SIE HABEN BELIEBIG VIELE VERSUCHE EIN” 
PRINT 


PRINT”UOM COMPUTER GESTELLTES WORT ZU ERRATEN.” 
PRINT 

PRINT? ES Pr RN DIE NORMALEN HANG-MAN REGELN” 
CHAR, 14,24, "<<< TASTE >>>m” 


GEIKEY A$ 
SENELR 
CHAR ‚2,4, "WELCHER SCHWIERIGKEITSGRADL1-87” 


INPUT SG 
IF SG6<1 OR S6G>8 THEN 610 
FS=FSCSG, INTERNDC1)*AZ+1)) 


RESTORE 1390 :REM AUF GALGEN STELLEN 
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CHAR,6,10, "ES KANN LOS GEHN.” 
GETKEY A$ 


SCENCLR 


FL “LENGFS) 

FOR I"1 TO PL 

; CHAR1,12*1,20,”,® 
:NEXT I 


:DO 
CHAR 1,5,0,”":PRINT"FALSCH: ”F” RICHTIG: ”R 
CHAR 1,8,20,CHR$SC18)+”>>”+CHRSC146) 
:  GETKEY BRS$S: IF BRS<”"A”OR BRS>”Z”’THEN LOOP:ELSE PRINT BRS; 
IF INSTRCMKS,BRSI<>OTHEN LODP:ELSE MKS=MKS+BRS 
: IF INSTRCFS,BRS)=0O THEN EXIT 
FOR I=-1TO FL 
IF MIDSCF$S,1,1)=BR$S THEN CHAR ‚12+1,20,BR$:R=R+1 
NEXT I 
: IF R=FL THEN 1110 
LOOP 


READ X,Y 
IF X=-1 AND Y=-1THEN EXIT:ELSE READ GAS 
IF GA$="+"THEN GAS=RUS 
CHAR 1,X,Y,GA$ 
LOOP 
F=F+1: IF F>11THEN 1230 
GOTO 810 


SCNECLR 

CHAR, 10,10,” SUPER am" 
CHAR, 12,12, "NOCHMAL LJ/N]IP?” 
FORI=-300 TOD 1015 STEP 10 
SOUND 1,1,6:NEXT 

GETKEY AS: IF AS<>”"N” THEN RUN 
SCNCELR: END 


CHAR, 12,0,””:PRINTF 
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1240 FOR I=27 TO 35 


1250 : CHAR,I,9,RUS 
1260 NEXT I 

1270 : 

1280 FOR I=6TDO 16 

1290 : CHAR, 31,I,RU$ 
1300 NEXT I 

1310 : 


1320 CHAR 1,4,18, "DAS GESUCHTE WORT WAR: ”+F$ 
1330 CHAR1,13,24, "NOCHMAL LJ/NI?” 

13409. FOR I-200 ID 8 STEP »-7 

1350 SDUND 1,1,7:NEXT 

1360 GETKEY A$: IF AS<>”"N”THEN RUN 

1370 SENECLR:END 


1430 DATAI, 15, ’— PP -1,-1 
1440 DATA17,14,” 1? 

1450 DATA17,13,” 

1460 DATA17,12,” 

1470 DATA17,11,” 

1480 DATA17,10,” ı” 

1490 DATA17,9,” 1» 

1500 DATA17,B,” 1” 

1510 DATA17,7,” ı” 

1520 DATA17,6,” #,-1,-1 
1530 DATA17,5, ”” 

1540 DATA11,5,7 9 1.1 
1550 DATA15,15,”_1” 

1560 DATA16, 14, ”.-” 

1570 DATA17,13,”"#,-1,-1 
1580 DATAI1S,5,”"1” 

1590 DATA16,6, "-.” 

1600 DATA17,7,””,-1,-1 
1610 DATAI, 7,” ” 

1620 DATAI,B,”I ı” 

1630 DATA9,9,” "—"”",-1,-1 
1640 DATA10,10,”«” 

1650 DATA1O,11,”r” 

1660 DATA10,12,”*”,-1,-1 
1670 DATAI,13,”.” 

1680 DATAB, 14, ”-”,-1,-1 
1690 DATA11,13, -.” 

1700 DATA12,14, =” ,-1,-1 
1710 DATA9,10,”." 

1720 DATAB,11,”-”,-1,-1 
1730 DATA11,10, "“.” 

1740 DATA12,11,””,-1,-1 an. 
1750 DATA10,5,” 1” 

1760 DATA10,6,”1”,-1,-1 
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1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
18390 
1900 
1310 
1920 
1930 
1940 
1950 
1960 
193270 
1980 
1390 
2000 
ce010 
2020 
2030 
2040 
2050 
2060 
2070 


DATA”BONN” 
DATA”MAUS” 
DATA”WELT” 
DATA”HANS” 
DATA”BUCH” 


DATA”BASIC” 
DAIA”STIFT” 
DATA”NATUR” 
DATA”HUNDE” 
DATA”KNALL” 


DATA”FRISCH” 
DATA”TASCHE” 
DATA”GRAFIK” 
DATA”FLOPPY” 
DATA”LAUFEN” 


DATA”POLIZEI” 
DATA”SPIELEN” 
DATA”LOGISCH” 
DATA”AMERIKA” 
DATA”LISTING” 


DATA”SCHLUMPF” 
DATA”COMPUTER” 
DATA”’ENGLISCH” 
DATA”JOYSTICK” 
DATA”BIRNBAUM” 


DATA”BAUERNHOF” 
DATA”COMMODORE” 
DATA”MIKROSKOP” 
DATA”’ASSEMBLER” 
DATA”’FERNSEHER” 


DATA”BUNDESWEHR” 
DATA”AUTORENNEN” 
DATA”DATABECKER” 
DATA”KOCHREZEPT” 
DATA”RADDAMPFER” 


DATA”SCHULPAUSEN” 
DATA”FLUGBETRIEB” 
DATA”ANGELSCHEIN” 
DATA”SCHNELLKOCH” 
DATA”’EISENBAHNEN” 


DATA”TASCHENDIEBE” 
DATA”LASERDRUCKER” 
DATA”HUBSCHRAUBER” 
DATA”STROMLEITUNG” 
DATA”SIEGERPDDEST” 


: REM 


: REM 


: REM 


: REM 


: REM 


:REM 


:REM 


: REM 


: REM 


4 BUCHSTABEN 


5 BUCHSTABEN 


6 BUCHSTABEN 


7 BUCHSTABEN 


B BUCHSTABEN 


9 BUCHSTABEN 


10 BUCHSTABEN 


11 BUCHSTABEN 


12 BUCHSTABEN 
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05 ER er u 
UG N een . 
120 REM *- a 
130 REM -- SQUASH 2 
140 REM -- — 
150 REM -- CIF/03/86) -- 
160 REM *- _ 
90 MH een “ 
180 DEN Vin sc 
190 : 


200 CDLORO,4 

210 COLOR4,6 

e20 COLOR1,7 

e30 VOL 5 

240 SENCLR 

es0 FOR I -0 TO 39 

e60 : CHAR,I,0,CHRSC1B)+” ”+CHRSC146) 
270 NEXT 


290 COLOR1,6 

300 FORI=0T023 

310 : CHAR,39, 1,CHRSC18)+” ”+CHRSC146) 
320 NEXT 


340 SLS="” Aa m >» 

350 BL$="we” 

360 SL=LENCSLS)I-3 

370 SP=16: REM SCHLAEGERPOSITION 

380 X=INTCRNDC1)*38)+1: REM ERSTE X-POSITION BALL 
390 Y=INTCRNDC1)*20)+1:REM ERSTE Y-POSITION BALL 
400 FX=-1,5:FY=-1 

410 CHAR 1,5P,22,5L8$ 

420 CHAR 1,X,Y,BL$ 

430 FORI=1000 TO 10 STEP -30:50UND1,1I,2:NEXT 


450 DO 
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460 


760 
770 
780 
790 
800 


CHAR, 10,0, ”"”: PRINTCHR$(C31); CHR$C1B); P; CHRSC146) 
GET 1$ 
IF T$="A”THEN SP=SP-1 
IF T$="L”THEN SP=SP+1 
IF SP<O THEN SP=O 
IF SP>39-SL THEN SP=39-SL 
: CHAR,SP,P2,SL$ 
REM »"“* BALLBEWEGUNG *** 
: CHAR 1,%,Y," ® 
IF’ X+FX<OTHEN FX=-FX:SOUND1, RNDC1)*S00,5 
IF X+FX>38THEN FX=-FX:SDUNDI ,RNDC1)*500,5 
IF Y+FY<1THEN FY=-FY:SOUND1 ,RNDC1)*500,5 
IF Y+FY>21THEN GOTO 670 
X=X+FX: Y=Y+FY 
: CHAR 1,X,Y,BL$ 
LOOP 
REM”-------------------- - ---- 
REM”"--- BALL NICHT GETROFFEN ?r--- 
REN”------------ ------ ------------ 
IF SP<X+FX AND SP+SL>X+FX THENFY=-FY: P=P+1:SOUND1 , RNDC1)*S500, 5:G60T0590 


F=F+1: IF F<3 THEN 380 


SCNCLR 

FORI=10T0900 STEP1O :SOUND 1,1,1:NEXT 
POKE239,0 

CHAR,B,10,’GAME DOVER” 
CHAR,9,12, "TRY AGAIN Y/N?” 

GEIKEY AS: IF AS<>”"N”THEN RUN 

SCNELR: END 


42 Das Grafikbuch zum C16, C116 und Plus /d4 
Der PRINT USING-Befehl 
Format: PRINT [#fn] USING v$;au(;) 


Parameter: - fn Nummer der Ausgabedatei 
l-127:Carriage return 
128-255:Angefügter Zeilenvorschub 
(Linefeed). 

Für die normale Bildschirmausgabe ist 
dieser Parameter nicht nötig. 


- v$ Definiert das Ausgabeformat 


- au Ausdrücke, die formatiert ausgegeben 
werden sollen. Wenn mehrere Aus- 
drücke behandelt werden sollen, so 
werden sie mit Kommata oder Semi- 
kolon getrennt. Hierbei ist zu beach- 
ten, daß ein Komma keine Tabulie- 
rung bewirkt, wie dies beim normalen 
PRINT-Befehl der Fall ist. 


Beispiel: PRINT USING "#, ###.##"a,b;cC 


Funktion: Formatierte Ausgabe eines oder meh- 
rerer Ausdrücke. 


Erläuterungen: 


Die Definition des Ausgabebildes erfolgt mit Hilfe verschiedener 
Zeichen, die man beherrschen sollte: 


String-Ausdrücke: 


#: Dieses Zeichen steht für ein Zeichen im Ausgabe- 
bild. Hat der zu behandelnde Ausdruck mehr Zei- 
chen als diejenigen Stellen, die mit # definiert sind, 
so werden die überzähligen Zeichen bei der Ausgabe 
nicht berücksichtigt. Ansonsten erfolgt die Ausgabe 
linksbündig. 
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wi 


Die Ausgabe erfolgt zentriert. 


Die Ausgabe erfolgt rechtsbündig. 


Numerische Ausdrücke: 


#:! 


Zeichen des Ausgabebildes. Die Ausgabe erfolgt 
rechtsbündig. Nicht benötigte Stellen werden mit 
Leerzeichen ausgefüllt. Wenn weniger |-Zeichen als 
Stellen im eingegebenen Ausdruck angegeben wer- 
den, so wird das Ausgabebild mit *-Zeichen gestaltet 
(siehe untenstehendes Beispiel). 


Eines dieser Zeichen bewirkt eine Vorzeichenangabe 
bei der Ausgabe. Die Zeichen können entweder am 
Anfang oder Ende der Ausgabedefinition stehen 
(siehe untenstehendes Beispiel). 


Dieser Punkt legt die Dezimalpositionen fest. Sind 
weniger Stellen als in der angebenen Zahl vorhan- 
den, so wird die Zahl gerundet. Dieses Zeichen darf 
außerdem nur einmal in der Definition verwendet 
werden (siehe untenstehendes Beispiel). 


Dient zur besseren Lesbarkeit von größeren Zahlen. 
Im Ausgabebild erscheint ein Komma, was nicht mit 
dem Dezimalkomma verwechselt werden darf. 
Außerdem muß vor dem ‚-Zeichen in der Definition 
ein #-Zeichen stehen (siehe untenstehendes Beispiel). 


Vor der ersten Zahl im Ausgabebild wird ein Dollar- 
Zeichen gesetzt. Auch hier muß vor diesem Zeichen 
in der Definition ein #-Zeichen stehen. Wie aus dem 
PUDEF-Befehl ersichtlich wird, bedeutet dieses 
Zeichen, daß es möglich ist, der formatierten Aus- 
gabe ein beliebiges Zeichen voranzustellen. Ist dieses 
Zeichen noch nicht umdefiniert, so benutzt der 
Computer das Dollar-Zeichen (siehe untenstehendes 
Beispiel). 
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AAAA 


Erwirkt eine Ausgabe im Exponentialformat. Nach 
diesen vier Zeichen muß noch ein + oder - in der 
Definition folgen. Das Exponentialformat ist, wie 
mathematisch versierte Leser sicher wissen, eine be- 
sondere Schreibweise von Zahlen. So wird der Dezi- 
malpunkt hinter das erste Zeichen gesetzt. Die An- 
zahl der Stellen, die hinter der ersten Zahl existieren, 
wird extra ausgedrückt. Hierdurch wird die Schreib- 
weise mancher Zahlen wesentlich kürzer. 


Beispiel: 
Normal format Exponentialformat 


100000000000 1.0E + 11 
oder 1E+ 11 


Doch auch kleinere Zahlen lassen sich so ausdrücken. Im Ge- 
gensatz zu der geraden benutzten Schreibweise wird das + durch 
ein - ersetzt. Wie Sie sicher schon festgestellt haben, wird bei 
der Benutzung des + der Dezimalpunkt nach rechts verschoben, 
um die alte Schreibweise zu erlangen. Jetzt ist es umgekehrt: 


Normal format Exponentialformat 
0.00000000001 10 Ei 17 
oder IE*,11 


Zur besseren Verständlichkeit nun noch ein Beispiel: 


10 x=12345.12345 

20 vs Hs HH HR HR 
30 for i=1 to 10 

40 print using v$;x 

50 v$=left$(v$,len(v$)-1) 
60 next i 


Ein führun 


Der PUDEF-Befehl 
Format: 


Parameter: - v$ 


Dabei gilt: 


Funktion: 


Erläuterungen: 
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PUDEF v3 


Ein Stringausdruck, mit der Länge 
von höchstens 4 Zeichen. Jede Posi- 
tion stellt ein bestimmtes Steuerzei- 
chen im PRINT USING-Befehl dar. 


Pos 1:Füllzeichen 
Pos 2:Komma 

Pos 3:Dezimalpunkt 
Pos 4:Dollarzeichen 


Definiert bis zu 4 Steuerzeichen im 
PRINT USING-Befehl neu. 


Als Füllzeichen ist das Leerzeichen voreingestellt. Sonst jeweils 
das angegebene. Also wird der Dezimalpunkt auch als Punkt 


ausgegeben. 


Beispiel: 
Funktion: 


Beispiel: 
Funktion: 


PUDEF*.," 

Stellt die englische Schreibweise von 
Zahlen auf die deutsche um 
(Vertauschen von Punkt und Komma). 


PUDEF "- " 

Das Schriftbild wird von links mit "- 
"Zeichen anstatt mit Leerzeichen 
aufgefüllt. 
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1.1.3 Shape-Grafik 


Die folgenden Befehle befassen sich mit der Shapegrafik. Shapes 
sind eigene kleine Grafiken, welche als Auszüge der hochauflö- 
senden oder der multicolor Grafik in Stringvariablen gespei- 
chernt werden können. Leider sind sie jedoch ziemlich langsam, 
und daher als Action-Figuren, in Spielen z.B., völlig ungeeignet. 
Jedoch erfüllen sie ihre Aufgabe in Strategie-Spielen, wo es 
mehr auf Schönheit als auf Schnelligkeit ankommt, voll und 


ganz. 


Der GSHAPE-Befehl 


Format: 

Parameter: - zk 
- X,Z 
- mo 

Beispiel: 

Funktion: 


GSHAPE zk,x,y,mo 


Variable mit binärer Bildinformation 
(s. SSIHAPE-Befehl) 


Bildschirmkoordinaten der linken, 
oberen Ecke des darzustellenden Bil- 
des (scaliert) 


Art der Bildschirmdarstellung: 
O=Darstellung genau so, wie sie ge- 
speichert wurden. 

l=Invertierte Bildschirmausgabe 
2=Überlagerung der Darstellung auf 
dem vorhandenen Bild 

3=Darstellung nur auf schon benutzten 
Bildpunkten 

4=Schon benutzte Bildpunkte,auf die 
die neue Darstellung übertragen wer- 
den soll, werden invertiert. 


GSHAPE z$,10,10,4 


Überträgt ein gespeichertes Shape auf 
den Grafik-Bildschirm. 
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Bemerkungen: 


Diese Eigenschaft kann man, wie in der Einleitung zu diesem 
Kapitel schon gesagt, für mehrere Dinge benutzen. Als Anre- 
gung möchte ich zum Beispiel ein Layout-Programm geben, bei 
dem Sie Ihre Bauteile in diesen Stringvariablen speichern und 
anschließend in den Bildschirm "stempeln" können. 


Der SSHAPE-Befehl 


Format: SSHAPE z$,x1,y1l,x2,y2 
Parameter: - z$ Zeichenkettenvariable, die den ge- 
wählten Bildschirmbereich als 


Binärinformation übernimmt. 


- xl,yl Koordinaten des linken, oberen Eck- 
punktes des gewählten Bildschirmbe- 
reichs (scaliert) 


- x2,y2 Koordinaten des rechten, unteren 
Eckpunktes des gewählten Bildschirm- 
bereichs (scaliert). Voreingestellt ist 
die aktuelle Position des grafischen 


Cursors. 
Beispiel: SSHAPE z$,10,10,20,20 
Funktion: Übergibt den Inhalt des gewählten 


Bildschirmbereichs der Variablen z$ 
in binärer Form. 


Erläuterungen: 


Der SSHAPE-Befehl ermöglicht es uns, den Inhalt eines Bild- 
schirmbereichs zu "lesen" und in eine Variable zu übergeben. 
Hierdurch wird uns die Möglichkeit gegeben, bestimmte Grafi- 
ken zu verschieben, da ja der GSHAPE-Befehl die Umkehrung 
des SSHAPE-Befehls ist und den Inhalt einer Variablen in einen 
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Bildschirmbereich übergibt (siehe auch GSHAPE-Befehl). Es ist 
allerdings nicht möglich, einen beliebig großen Bildschirmbe- 
reich in eine Variable zu übergeben. Die Länge der zu überge- 
benden Zeichenkette beschränkt sich auf 255 Zeichen. Um 
Komplikationen mit der maximalen Länge zu vermeiden, kann 
man zwei Formeln benutzen, die die benötigte Länge berechnen: 


Hochauflösend: I=INT(C(ABS(x1-x2)+1)/8+.99)*CABS(y1-y2)+1)+4 

Multicolor: I=INT(C(CABS(x1-x2)+1)/4+.99)*CABS(y1-y2)+1)+4 

Der Vorteil dieser Formeln liegt klar auf der Hand: Hat man 
sich einen Bildschirmbereich ausgesucht, so ist es vorteilhaft zu 
wissen, ob die Größe des Bereichs nicht die Möglichkeiten des 


Befehls übersteigt. Benutzt man die Formeln, so entgeht man 
den Fehlermeldungen des Computers. 


100 rem HHRRHHHRHHRRHHRHHHHHHERHEHHHREHHHHHHERHHHHHHRHER 


110 rem ### HR 
120 rem ### shape - demo RER 
130 rem inneren HAR 
140 rem ##H# HHH 
150 rem ERHHHREHRHHR HH HEHHHHHHHRHEHHHHHRRHHHR 
160 : 

170 color 4,1,1 :rem rahmenfarbe 

180 color 0,1,1 :rem hintergrundfarbe 
190 color 1,5,1 :rem zeichenfarbe 

200 graphic 1,1 :rem hgr einschalten 
210 : 


220 m=1:for z=1 to 20 

230 y1i=int(199*rnd(1)) 

240 x1=int(319*rnd(1)) 

230 y2=int(199*rnd(1)) 

240 x2=int(319*rnd(1)) 

250 box m,x1,y1,x2,y1,,1 :rem ausgefüllte Quadrate 
260 next 

2/0: 
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280 rem bestimmten Bereich kopieren 
290 : 

300 sshape a$,160,100,180,120 
310 : 

320 for x=0 to 320 step 30 
330 gshape a$,x,30,0 

340 gshape a$,x,60,1 

350 gshape a$,x,90,2 

360 gshape a$,x,120,3 

370 gshape a$,x,150,4 

380 next x 


1.1.4 Sonstige Grafikbefehle 


In diesem Kapitel werden Sie Befehle finden, die entweder bei 
keinem der anderen Kapitel unterzuordnen waren, oder bei 
denen es sich nicht gelohnt hätte, extra ein eigenes Kapitel zu 
schreiben. 


Der COLOR-Befehl 
Format: COLOR fa,fc,fl 


Parameter: - fq Farbauelle. 
0=Hintergrund 
l=grafischer Vordergrund 
2=grafischer Mehrfarbenmodus | 
3=grafischer Mehrfarbenmodus 2 
4=Rand 


- fc Farbcode. 
Folgende Farbcodes kann man wählen: 


1=schwarz 9=hellbraun 
2=weiß 10=braun 
3=rot 11=rosa 
4=grün 12=dunkelgrau 


5=violet 13=grau 
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6=dunkelgrün 14=hellgrün 
7=blau 15=hellblau 
8=gelb 16=hellgrau 


- fl Farbhelligkeit (0-7) 
Beispiel: COLOR 4,8 


Funktion: Definiert für jede mögliche Farb- 
quelle eine Farbe. 


Erläuterungen: 


COLOR (,fce ändert die Hintergrundfarbe des Bildschirms nur 
mit anschließendem GRAPHIC-Befehl. Das bedeutet, daß dieser 
Befehl nicht gleich die sichtbare Hintergrundfarbe ändert. 

Wie schon bei der Beschreibung von anderen Befehlen angedeu- 
tet, möchte ich denen, die nichts mit den Farbquellen anfangen 
können, diese etwas näher bringen. Zunächst einmal dienen die 
Farbquellen 0, 1 und 4 dazu, ganz bestimmte Bildschirmstellen 
farbig zu gestalten. Hierzu folgt im Anschluß an die Definition 
der GRAPHIC-Befehl (siehe dort). Neben dieser Aufgabe haben 
die Farbquellen auch noch eine andere, sehr wichtige. Man kann 
diese Farbquellen bei allen Befehlen, die etwas zeichnen, abru- 
fen und deren Inhalt als Zeichenfarbe benutzen. So ist es mög- 
lich, die Zeichenfarbe in Übereinstimmung mit der anderen, 
bereits benutzten, zu wählen. 


Der GRAPHIC-Befehl 


Format: GRAPHIC mo,ls 
GRAPHIC CLR 

Parameter: - mo : Modus. Folgende 5 Modi sind mög- 
lich: 


0=Text mit 40 Zeichen / Zeile 
I=hochauflösende Grafik (320*200 
Punkte) 

2=hochauflösende Grafik mit Text 
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3=Multicolorgrafik (160*200 Punkte) 
4=Multicolorgrafik mit Text 


- Is Bestimmt, ob bei Aufruf der Modi |- 
4 der Bildschirm gelöscht werden soll 
(1) oder nicht (0). 


- GRAPHIC CLR: Gibt den reservierten 
Speicherplatz wieder frei. 


Beispiel: GRAPHIC 1,1 

Funktion: Aktiviert Grafikmodus und reserviert 
Speicherplatz (bzw. gibt ihn wieder 
frei). 

Erläuterungen: 


Bei den Modi 1-4 wird ein 8-KByte-Grafikspeicherplatz, der 
für die Darstellung der Grafik notwendig ist, ab dem Bereich 
8192 (hex $2000), ein 2-KByte Farb- und Helligkeits-RAM ab 
dem Bereich 6144 (hex $1800) reserviert und wird erst wieder 
durch GRAPHIC CLR freigegeben. 


Beachten Sie bitte, daß nach Einschalten der Grafik beim C16 
und C116 in der Grundversion nur noch ca. 2 KByte für eigene 
Programme zur Verfügung stehen. Auch uns wurde diese Tat- 
sache oft zum Verhängnis. Dies ist übrigens auch der Grund, 
wieso die Programme unseres CAD-Kapitels nur mit mindestens 
32-KByte-RAM funktionieren. 


Weiterhin wird der Grafikmodus aktiviert. Außerdem werden 
alle Farben, die mit dem COLOR-Befehl neu definiert wurden, 
sichtbar. 


Die RCLR-Funktion 


Format: x=RCLR(fa) 
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Parameter: fq 


Beispiel: 


Funktion: 


Erläuterungen: 


Farbquelle 
0=Hintergrund 
l=Vordergrund 
2=Multicolor | 
3=Multicolor 2 
4=Rand 


x=RCLR(|) 


Liefert den aktuellen Farbcode der 
angegebenen Farbquelle. 


Dieser Befehl ermöglicht es uns, die Inhalte der Farbquellen 
abzufragen. Das ist dann nützlich, wenn in einem Programm Be- 
dingungen an diese geknüpft werden. Dadurch ist es möglich, 
wenn nötig, Änderungen vorzunehmen. Nach der Ausführung 
dieses Befehls trägt die Variable x den abgefragten Inhalt. 


Die RGR-Funktion 
Format: 


Parameter: dummy: 


Beispiel: 


Funktion: 


Die RLUM Funktion 
Format: 


Parameter: fq 


x=RGR(dummy) 

Pseudowert, dessen Wert beliebig 
zwischen 0 und 255 gewählt werden 
kann 


x=RGR(|) 


Liefert den aktuellen Grafikmodus 


x=RLUM(fa) 


Farbquelle 
0=Hintergrund 
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Beispiel: 


Funktion: 


Erläuterungen: 


l=Vordergrund 
2=Multicolor | 
3=Multicolor 2 
4=Rand 


x=RLUM(]) 


Liefert den aktuellen Helligkeitswert 
der angegebenden Farbaquelle. 


Dieser Befehl ermöglicht es uns, die Inhalte der Farbquellen auf 
deren Helligkeitswerte abzufragen. Das ist dann nützlich, wenn 
in einem Programm Bedingungen an diese geknüpft werden. Da- 
durch ist es möglich, wenn nötig, Änderungen vorzunehmen. 
Nach der Ausführung dieses Befehls trägt die Variable x den 


abgefragten Inhalt. 


Die SCNCLR-Anweisung 
Format: 


Parameter: 


SCNCLER(n) 


n 


ist ein ganzzahliger Wert mit fol- 
gender Bedeutung: 


Der Textbildschirm wird gelöscht. 
Der hochauflösende Grafikbild- 
schirm wird gelöscht. 

Der hochauflösende geteilte Bild- 
schirm wird gelöscht. 

Der Mehrfarben-Grafikbild- 
schirm wird gelöscht. 

Der geteilte Mehrfarben-Grafik- 
bildschirm wird gelöscht. 


54 Das Grafikbuch zum C16, C116 und Plus /4 
Erläuterungen: 
Wird "n" weggelassen, so wird der jeweils aktivierte Bildschirm 


gelöscht. Das Weglassen von "n" kann also entgegen der Infor- 
mationen des Commodore-Handbuches in allen Modi geschehen. 
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2. Grundlagen der Grafikprogrammierung 


2.1 Theoretische Grundlagen 


Das nun folgende Kapitel ist für diejenigen unter Ihnen ge- 
dacht, denen es nicht reicht, eine Linie zum Beispiel mit den 
uns bereits bekannten Hilfsmitteln zu zeichnen, die vielmehr et- 
was genauer ergründen wollen, wie man nun jeden einzelnen 
Punkt einer Linie errechnet: 


2.1.1 Linienberechnung 


Zunächst einmal müssen wir uns, um dieses Problem zu lösen, 
etwas mit der analytischen Geometrie befassen. Hinter diesem 
monströsen Begriff steckt in diesem Zusammenhang betrachtet, 
nichts anderes als die normierte Geradengleichung, von der Sie 
ja bestimmt auch schon einmal in der Schulmathematik gehört 
haben. Diese Gleichung hat die folgende Form: 


y=mı+n 
x und y sind hierbei die Koordinaten eines beliebigen Punktes 
der Geraden. m ist die Steigung der Geraden und n stellt ihren 
Schnittpunkt mit der y-Achse dar. 

Sind nun zwei Punkte dieser Gerade bekannt, es wären ja in 
diesem Fall die Endpunkte unserer Linie (x1,yl) und (x2,y2), so 
können wir sofort die zwei nachstehenden Formeln ableiten, die 
wir anschließend gleichsetzen. 


n = yl-mxl und zugleich n = y2-mx2 


-> yl-mx2 = y2-mx2 


y2-yl 





<=> m= 
x2-xX] 
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Die letzte Formel ist die sogenannte Punkt-Steigungs-Formel 
und erlaubt uns, die Steigung m einer Geraden mit den zwei auf 
dieser Geraden liegenden Punkten (xl,yl) und (x2,y2) zu be- 
stimmen. n gibt den Schnittpunkt der Geraden mit der y-Achse 
an, also die "Höhe" der Geraden. Wählen wir n=0, so geht die 
Gerade durch den Ursprung mit den Koordinaten (0,0). Ver- 
schieben wir diesen Startpunkt der Linie zu ihrem Endpunkt, so 
müssen wir entsprechend die beiden Koordinaten, in diesem Fall 
x2 und y2, zu X und Y addieren. Die folgende Formel gibt dann 
nun die endgültige Geradengleichung wieder, die bereits die 
verschobene Gerade angibt und in die m eingesetzt wurde: 


y2 - yl 
y= — *"Tk-x2)+y2 
x2 - xl 


Diese Formel ist die Grundlage des unten dargestellten Pro- 
gramms und wird stückweise in den Zeilen 380, 480 und 500 
errechnet, wobei die X-Koordinate stets von x2 nach xI läuft, 
und für jeden solchen X-Wert der entsprechnde Y-Wert be- 
stimmt wird. 


Ein einziges Problem, das diese Formel mit sich bringt, existiert 
jedoch, wenn wir eine Senkrechte zeichnen. In diesem Fall wird 
xl=x2 und damit der Nenner der Steigung gleich 0, was uns 
unser Computer mit einem "DIVISION BY ZERO ERROR!" 
quittiert. Wir umgehen diesen Sonderfall, indem wir in der Un- 
terroutine, die in Zeile 310 beginnt, eine Senkrechte zeichnen. 


Natürlich kommt, wie Sie selbst nun festgestellt haben, ein BA- 
SIC-Programm noch lange nicht mit einer gleichwertigen As- 
semblerroutine mit, die wir im folgenden Kapitel vorstellen 
wollen. 
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100 rem KERKKKKTTTTHTTTT TI TTTTITITI a a a a a a ı 


110 rem *** Kr% 
120 rem *** zeichnen einer linie Kir 
130 FEm Ya OO 11 nininn nennen nenn nennen sh 
140 rem *** Krk 
150 rem KAKKKKAKKHKKKKKH HT HI IT I TE I TH TI I I I IH I TA I A A A a a a a a a a a 
160 : 


170 color 4,1,4 
180 color 0,1 

190 color 1,6,4 
200 : 

210 graphic 1,1 
220 x1=110:y1=120 
230 x2=130:y2=140 
240 : 

250 gosub 380 

260 : 

270 getkey a$ 

280 graphic 0 


290 list 

300 end 

310 : 

320 rem KRKKKKKKKK HH HT TH TTS Te TE a a a a a ha a 
330 rem *** Kr 
340 rem *** unteroutine "linie zeichnen! *** 
350 rem **% Kr 
360 rem KURT TI I a a a a a a 
370; 


380 dy=y2-y1 : dx=x2-x1 

390 yk=y2 : xk=x2 

400 : 

410 if dx<>0 then 480 

420 for yk=y2 to y1 step sgn(-dy) 
430 gosub 560 

440 next yk 

450 return 

460 

470 

480 dd=dy/dx 

490 for xk=x2 to x1 step sgn(-dx) 
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500 : zk=int(dd*(xk-x2)+y2) 
510 : do while zk<>yk 


12 s: yk=yk+sgn(-dy) 
514 :: gosub 560 

516 : Loop 

520 : gosub 560 

530 next xk 

540 return 

550 2 


560 draw ‚„xk,yk : xk=xk+1 
570 draw ‚xk,yk : xk=xk- 1 
580 return 


2.1.2 Linienberechnung in Assembler 


Wenn Sie das vorstehende Programm des öfteren für Ihre Linien 
und Zeichnungen verwenden wollen, so wird Ihnen die lange 
Wartezeit, die zum Zeichnen benötigt wird, recht bald unbe- 
quem. In diesem Fall sollte uns ein Blick hinter die Kulissen ei- 
ner in Maschinensprache (Assembler) geschriebenen Routine 
nicht zu schade sein. Sie werden staunen, welchen Geschwindig- 
keitsvorteil eine solche Assemblerroutine bringen wird. 


Gehen wir die Sache einmal ganz ruhig an: Natürlich werden 
wir hier versuchen, einen Algorithmus, also eine Rechenvor- 
schrift, zu finden, in der nicht so viel zeitintensiv herumgerech- 
net werden muß. Dazu sehen wir uns einmal an, wie eine soge- 
nannte Linie in Wirklichkeit auf dem Bildschirm ausschaut (s. 
Abbildung). Was uns da als schöne, gleichmäßige Linie er- 
scheint, nimmt in Wahrheit einen recht wilden Zickzackverlauf. 
Wir werden nun nicht die Koordinaten jedes Punktes einzeln 
errechnen, sondern lediglich feststellen, in welche Richtung 
(hoch, runter, rechts oder links) der nächste Punkt gezeichnet 
werden soll. Dadurch muß jedesmal nur eine einfache Addition 
durchgeführt werden. 
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Linie in der hochauflösenden Grafik 
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Wie wir oben gesehen haben, können wir die Steigung einer 
Geraden durch die Formel m=(y2-yl)/(x2-x1) berechnen. Neh- 
men wir an, wir befinden uns während des Zeichnens unserer 
Linie gemäß obiger Abbildung im Punkt p3. Wie deutlich zu se- 
hen ist, befindet sich dieser Punkt nicht auf, sondern vielmehr 
"über" unserer Ideallinie. Die Steigung der Geraden pl nach p3 
ist also größer, als die Idealgerade pl nach p2. Aus diesem 
Grunde müssen wir den nächsten Punkt rechts neben dem zu- 
letzt gezeichneten Punkt setzen, da sich nur so im nächsten 
Schritt die Steigung von pl->p3 wieder an die der Gerade pl- 
>p2 annähert. 


Wir können nun also unser Gesetz formulieren: Ist die Steigung 
der Geraden zwischen Start- und aktuellem Punkt größer als die 
der Idealgeraden, so zeichnen wir den nächsten Punkt rechts ne- 
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ben den vorherigen, ist sie dagegen kleiner oder gleich, so wird 
der nächste Punkt darüber gezeichnet. Dies gilt natürlich nur 
dann, wenn man grundsätzlich von unten nach oben eine Linie 
mit positiver Steigung zeichnet. Doch realisieren wir erst einmal 
diesen einen Fall. 


Im folgenden sei ma die Steigung der Gerade zwischen Start- 
und aktuellem Punkt (pl->p3) und mi die Steigung der Ideallinie 
(pl->p2). Dm ist dann die Differenz dieser Werte: 


Dm = mi-ma 
Folgende zwei Fälle sind zu unterscheiden: 


a) Dm > 0 => Schritt nach oben 
b) Dm <0 => Schritt nach rechts 


Für die Steigungen setzen wir nun die entsprechenden Punkt- 
Steigungs-Formeln (s.o.) ein: 


ma = (y3-yl)/(x3-x1) 
mi = (y2-yl)/(x2-x1) 


Dann ergibt sich: 


Dm = (y2-y1)/(x2-x1)-(y3-y1)/(x3-x1) <=> 
Dm*(x3-x1)*(x2-x1) = (y2-y1)*(x3-x1)-(y3-y1)*(x2-x1) 


Da x3 und x2 immer größer sind als xl, ist auch der Ausdruck 
(x3-x1)*(x2-x1) immer größer Null, ändert also nichts an dem 
Vorzeichen der linken Seite der Gleichung. Da aber nun inter- 
essant ist, ob Dm größer oder kleiner Null ist, kann man die 
beiden Klammern auf der linken Gleichungsseite getrost weg- 
fallen lassen und wir erhalten wieder: 


Dm = (y2-yl)*(x3-x1) - (y3-yl)*(x2-x1) 
Streng mathematisch ist diese Gleichung natürlich falsch. Gleich 


sind natürlich nur noch die Vorzeichen der beiden Gleichungs- 
seiten. Für unsere Zwecke geht das aber in Ordnung. 
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Bewegen wir uns nun nach rechts, so erhöht sich x3, also (x3- 
xl), entsprechend um 1, bewegen wir uns dagegen nach oben, so 
erhöht sich y3, also (y3-yl), um 1. Das neue Dm (Kurz NDm) 
sieht für den ersten Fall dann so aus: 


NDm = (y2-y1l)*((x3-x1)+1) - (y3-yl)*(x2-x1) <=> 
NDm = (y2-yl)*(x3-x1) + (x3-x1) - (y3-yl)*(x2-xl) <=> 
NDm = Dm + (x3-x1) 


Entsprechend für den zweiten Fall: 


NDm = (y2-yl)*(x3-x1) - ((y3-yl)+1)*(x2-x1) <=> 
NDm = (y2-y1l)*(x3-x1) - (y3-yl)*(x2-x1) - (y3-yl) <=> 
NDm = Dm - (y3-yl) 


Damit kann jedes NDm durch eine einfache Addition aus dem 
alten Dm errechnet werden. Dieser neue Wert wird dann auf 
sein Vorzeichen getestet, um wiederum zu entscheiden, in wel- 
che Richtung nun gezeichnet werden soll, die Koordinaten wer- 
den erhöht, das neue Dm wird errechnet usw. 


Bisher haben wir diese Ableitung nur für Geraden mit positiver 
Steigung dargestellt. Bei Geraden mit m<O (negative Steigung), 
also y3 kleiner yl, gelten die gleichen Regeln und Formeln, 
wenn man die Vorzeichen von (y2-yl) und (x2-x1) umkehrt, 
also den Betrag dieser Werte berechnet. Gleichzeitig muß natür- 
lich statt nach rechts nach links und statt nach oben nach unten 
gezeichnet werden. 


Dieses ganze Verfahren wird solange wiederholt, bis x3=x2 und 
y3=y2. Um nicht dauernd diese Differenz zu berechnen, wird 
einfach die Anzahl der zu zeichnenden Punkte anz gezählt: 


anz= abs(x2-x1) + abs(y2-yl) 
abs ist die Absolutfunktion, d.h. Vorzeichen werden weggestri- 


chen. Ist die Anzahl der zu zeichnenden Punkte erreicht, ist die 
Linie fertig. 
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Doch nun nach aller grauen Theorie hier das Assemblerpro- 
gramm mit BASIC-Lader und kleiner Demo. Die Funktion wird 
mit SYS linie,xl,yl,x2,y2 aufgerufen. 


profi-ass 65002 vl 


110: 1630 .opt 01 

120: 7 

130: 1630 *=  $1630 

140: 2 

150: s 

160: : KRETA TE TA TH a a a a hc a a 

170: sr 27 

180: ; ** Linien in assembler ** 

190: Fi x%* 

200: s arhcc a a a a 

210: : 

220: 3 

230: > 

240: 

240: 1630 

250: RR 

260: 5 

270: 9d84 getbyt = $9d84 ;holt bytewert 
280: 9491 chkcom = $9491 ;prueft auf komma 
290: 9dd8 chkget = $9dd8 ;chkcom+getbyt 
300: 9dd2 getcor = $9dd2 ;holt koordinaten 
310:  9d7e gerr = $9d7’e ;illegal quantity 
320: B 

330: ‚nullseitige register 

330: 1630 

340: U 

350: ; 

360: 0063 offx = $63 

370: 00ab msk = $ab ;maske 

380: 0069 difO = $69 

390: 006a dif1 = $6a 

400: 006b dif2 = $6b 


410:  006c dif3 = $6c 
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420: 006d dif4 = $6d 

430: 006e dif5 = $6e 

440:  006f zwn = $6f ‚xk/8 (hline) 
450: 0070 za = $70 ;zaehler (hline) 
460: ODac a = $ac ;punktadresse 
470: 00ad b = $ac+1 

480: 0014 xk = $14 »x-koordinate 
490: 0097 flg = $97 ‚unplot/plot-flag 
500: O00fd use = $fd ‚diverses 

510: ‚ 

520: ‚feste werte 

520: 1630 

530: SRUERRERERENR 

540: s 

550: 2000 graph = $2000 ;graphikstart 
560: 0021 gstart = $21 ;gr-start+1 h-byte 
570:  003e gend = $3e :gr-ende-1 h-byte 
580: . 

590: s 

600: ‚Ansteueradressen 

600: 1630 

610: SERRERRARENTRRERER 

620: s 

630: 1630 4c 3f 16 jmp plot ‚punkt setzen 
640: 1633 4c 3c 16 jmp unplot ;punkt loeschen 
650: 1636 4c 52 16 jmp sline ;linie zeichnen 
660: 1639 4c 4f 16 jmp clline ;linie loeschen 
670: a 

680: a 

690: punkt loeschen 

690: 163c 

700: SVERRRIRURUUNER 

710: - 

720: 163c a2 00 unplot Idx #800 ;loesch-flag 
730:  163e 2c .byt $2c 

740: : 

750: : 

760: ;punkt setzen 

760: 163f 


770: FLEZ SD 
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780: > 

790: 163f a2 80 plot Idx #%80 ‚setz-flag 

800: 1641 86 97 pl1 stx flg 

810: 1643 20 91 94 jsr chkcom 

820: 1646 20 60 16 jsr tescor ;koordinaten holen 
830: 1649 20 7b 16 jsr hposn ;adresse errechnen 
840: 164c 4c c9 16 jm plt ‚punkt setzen/loeschen 
850: H 

860: ä 

870: linie loeschen 

870: 164f 

880: SEERERERERRUUREN 

890: ° 

900: 164f a2 00 clline Idx #800 ;loesch-flag 

910: 1651 2c .byt $2c 

920: ’ 

930: ‚ 

940: ‚linie zeichnen 

940: 1652 

950: SRRRERRERHERRUNE 

960: : 

970: 1652 a2 80 sline Idx #380 ‚setz-flag 

980: 1654 20 41 16 jsr pl1 ‚ersten punkt setzen 
990: 1657 20 91 94 jsr chkcom 

1000: 165a 20 60 16 jsr tescor ;zweite koord. holen 
1010: 165d 4c 3f 17 jmp hline ;linie zeichnen 
1020: > 

1030: : 

1040: ;koordinaten testen 

1040: 1660 

1050: SERERURRERERRURFERURE 

1060: s 

1070: 1660 20 d2 9d tescor jsr getcor ;holen 

1080: 1663 8a txa 

1090: 1664 aß tay 

1100: 1665 a6 15 Idx xk+1 

1110: 1667 cO c8 cpy #200 ;y-koord. >= 200print 
1120: 1669 bO Od bes illff ;jal 

1130: 166b a5 14 Ida xk 


1140: 166d eO 01 cpx #>320 ;x-koord. >= 320print 
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1150: 166f 90 06 bee t1 ‚ja 

1160: 1671 dO 05 bne illff ;a-> xk-low 
1170: 1673 c9 40 cmp #<320 ;x-> xk-high 
1180: 1675 bO 01 bes illff ;y-> yk 
1190: 1677 60 t1 rts 


1200: 1678 4c 7e 9d illff jmp qgerr ‚illegal quantity 
1210: 


a 
‘ 


1220: ; 

1230: ‚adresse errechnen 

1230: 167b 

1240: SER URTRENRRNE 

1250: » 

1260: 167b 8c c9 17 hposn sty yk =y>K 

1270: 167e 8d c7 17 sta xkl ‚x-kl 

1280: 1681 8e cd 17 stx xkh »x-kh (zwischenspeichern) 
1290: 1684 85 14 sta xk 

1300: 1686 86 15 stx xk+1 

1310: 1688 98 tya 

1320: 1689 4a Isr 

1330: 168a 4a Isr 

1340: 168b 4a Ilsr a ‚int(y/8) 

1350: 168c aa tax 

1360: 168d bd cc 17 Ida mul.h,x ;320*int(y/8) (high-byte) 
1370: 1690 85 ad sta b 

1380: 1692 8a txa 

1390: 1693 29 03 and #3 ;‚bits 0+1 isolieren 

1400: 1695 aa tax 

1410: 1696 bd e6 17 Ida mul.l,x ;320*int(y/8) (low-byte) 
1420: 1699 85 ac sta a 

1430: 169b 98 tya »y-koord. 

1440: 169c 29 07 and #7 (y and 7) 

1450: 169e 18 ele 

1460: 169f 65 ac adc a ‚offy=320*int(y/8)+(y and 7) 
1470: 1681 85 ac sta a SFERERREREREERERERERER URN. 
1480: 1633 a5 14 Ida xk 

1490: 1625 29 f8 and #$f8 ‚offx=8*int(x/8) 

1500: 16a7 85 63 sta offx SEFURTUUTTTRTNEER 

1510: 16239 a9 20 Ida #>graph ;graphikseite 

1520: 16ab 05 ad ora b 


1530: 16ad 85 ad sta b ‚+sa 
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1540: 16af 18 eie 

1550: 16b0 a5 ac Ida a 

1560: 16b2 65 63 ade offx sad = offy + offx + sa 
1570: 16b4 85 ac sta a Fhuieieinteheiehokelekstsiskekstetehshekeke] 
1580: 16b6 a5 ad Ida b 

1590: 16b8 65 15 adc xk+1 

1600: 16ba 85 ad sta b 

1610: 16bce a5 14 Ida xk 

1620: 16be 29 07 and #7 

1630: 16c0 49 07 eor #7 ;7-(x and 7) 

1640: 16c2 aa tax 

1650: 16c3 bd ea 17 Ida msktab,x ;maskentabelle 
1660: 16c6 85 ab sta msk »2-(7-(x and 7)) 
1670: 16c8 60 rts 

1680: ? 

1690: s 

1700: ‚punkt plotten 

1700: 16c9 

1710: ERRRRTTT A E 

1720: s 

1730: 16c9 a0 00 plt Idy #0 

1740: 16cb 08 php ;‚carry-flag retten 
1750: 16cc a5 ab Ida msk ‚maske 

1760: 16ce 24 97 bit flg ;plot/unplot-flag 
1770: 16d0 30 05 bmi pl2 ;plot 

1780: 16d2 49 ff eor #$ff ;unplot 

1790: 16d4 31 ac abd (a),y 

1800: 16d6 2c .byt $2c ;überspringe nächsten befehl 
1810: 16d7 11 ac pl2 ora (a),y ;plot 

1820: 16d9 91 ac sta (a),y 

1830: 16db 28 plp ‚carry-flag 

1840: 16dce a4 6f Idy zun 

1850: 16de 60 rts 

1860: h 

1870: : 

1880: x 

1890: ;vektorroutinen 

1890: 16df 

1900: SERERTERRTRURNER 


1910: : 
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1920: 16df a5 ac unten and #7 


1940: 16e3 c9 07 cmp #7 

1950: 16e5 fO 05 beq uni ;packenrand! 

1960: 16e7 38 sec 

1970: 16e8 a9 00 Ida #0 

1980: 16ea bO 04 bes un2 ‚addiere 1 (c=1!) 
1990: 1dec a9 38 un! Ida #$38 ‚addiere 320-7=313 
2000: 16ee e6 ad inc b ;c=1! 

2010: 16f0 65 ac un2 adc a 

2020: 16f2 85 ac sta 

2030: 16f4 a9 00 Ida #0 

2040: 16f6 65 ad adc b 

2050: 16f8 85 ad sta b 

2060: 16fa 60 rts 

2070: s 

2080: 16fb 30 e2 u.0 bmi unten 

2090: . 

2100: 16fd a5 ac oben Ida a ‚adresse 

2110: 16ff 29 07 and #7 

2120: 1701 fO 05 beq ob1 ;packenrand (oben) 
2130: 1703 18 clc 

2140: 1704 a9 ff Ida #ff 

2150: 1706 90 04 bec ob2 ‚subtrahiere 1 
2160: 1708 a9 c7 ob1 Ida #%c7 ‚subtahiere 320+7=327 
2170: 170a c6 ad dec b 

2180: 170c 65 ac ob2 adc 

2190: 170e 85 ac sta a 

2200: 1710 a5 ad Ida 

2210: 1712 e9 00 sbc #0 

2220: 1714 85 ad sta b 

2230: 1716 60 rts 

2240: : 

2250: - 

2260: 1717 46 ab rechts Isr msk ;maske verschieben 
2270: 1719 90 De bcec re2 ‚noch innerhalb byte 
2280: 171b 66 ab ror msk ‚ausserhalb byte 
2290: 171d a5 ac Ida a 

2300: 171f c8 iny 

2310: 1720 18 clc 


2320: 1721 69 08 adc #8 
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2330: 1723 85 ac sta a 

2340: 1725 90 02 bcec re2 

2350: 1727 e6 ad inc b ;8 addieren 

2360: 1729 60 re2 rts 

2370: FR 

2380: 172a 10 eb mil bpl rechts 

2390: 5 

2400: 172c 06 ab Links asl msk 

2410: 172e 90 De bee (i1 

2420: 1730 26 ab rol msk 

2430: 1732 a5 ac Ida a 

2440: 1734 88 dey 

2450: 1735 38 sec 

2460: 1736 e9 08 Li3 sbce #8 

2470: 1738 85 ac sta a 

2480: 173a bO 02 bes Li1 

2490: 173c c6 ad dec b 8 subtrahieren 
2500: 173e 60 Li1 rts 

2510: ’ 

2520: ’ 

2530: Linie zeichnen 

23303 1437 

2540: SRRRWERERRTURIOHR 

2550: e 

2560: 173f 48 hline pha sa -> x2-low-byte 
2570: 1740 ad c8 17 Ida xkh ‚X > x2-high-byte 
2580: 1743 4a \sr a a 

2590: 1744 ad c7 17 Ida xkl ‚xkl-> x1-low-byte 
2600: 1747 6a ror a ‚xkh-> x1-low-byte 
2610: 1748 4a \sr a syk -> y1 

2620: 1749 4a Ä Lsr 

2630: 174a 85 6f sta zuwn ‚x1 / 8 zwischensp. 
2640: 174 68 pla 

2650: 174d 48 pha 

2660: 174e 38 sec 

2670: 174f ed c7 17 sbce xkl 

2680: 1752 48 pha 

2690: 1753 8a txa 

2700: 1754 ed c8 17 sbce xkh 


2710: 1757 85 6c sta dif3 ‚x2-x1 
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2720: 1759 bO 0a bes 13 ‚negativprint 

2730: 175b 68 pla ‚ja 

2740: 175c 49 ff eor #$ff 

2750: 175e 69 01 adc #1 

2760: 1760 48 pha 

2770: 1761 a9 00 Ida #0 

2780: 1763 e5 6c sbc dif3 ;vorzeichenwechsel 

2790: 1765 85 6a 13 sta dif1 

2800: 1767 85 6e sta dif5 ;(x2-x1)-high 

2810: 1769 68 pla 

2820: 176a 85 69 sta difO 

2830: 176c 85 6d sta dif4 ;(x2-x1)-low 

2840: 176e 68 pla 

2850: 176f 8d c7 17 sta xkl 

2860: 1772 Be c8 17 stx xkh 

2870: 1775 98 tya 

2880: 1776 18 clc 

2890: 1777 ed c9 17 sbc yk ‚y2-y1 

2900: 177a 90 04 bcec 14 ;negativprint 

2910: 177c 49 ff eor #$ff 

2920: 177e 69 fe adc #$fe ;vorzeichenwechsel 

2930: 1780 85 6b L4 sta dif2 :(y2-y1) 

2940: 1782 8c c9 17 sty yk 

2950: 1785 66 6c ror dif3 »(x2-x1)/2 

2960: 1787 38 sec 

2970: 1788 e5 69 sbce difO ;(y2-y1)-(x2-x1) 

2980: 178a aa tax :low-byte nach x-reg. 
;C(punkte-zaehler-low) 

2990: 178b a9 ff Ida #ff 

3000: 178d e5 6a sbe difi 

3010: 178f 85 70 sta za ;high-byte nach za (punkte- 
;‚zaehler-high) 

3020: 1791 a4 6f Idy zuwn 

3030: 1793 bO 05 bes 15 unbedingt 

3040: 1795 Oa 11 asl a 

3050: 1796 20 2a 17 ier rl ‚rechts/links 

3060: 1799 38 sec 

3070: 179a a5 6d L5 Ida dif4 

3080: 179c 65 6b adc dif2 


3090: 179e 85 6d sta dif4 
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3100: 17a0 a5 de Ida dif5 

3110: 17a2 e9 00 sbce #0 ;(x2-x1)-(y2-y1)nach(x2-x1) 
3120: 17a4 85 6e L2 sta dif5 

3130: 17a6 84 6f sty zuwn 

3140: 17a8 20 c9 16 jsr plt ‚punkt zeichnen 
3150: 17ab e8d inx 

3160: 17ac dO 05 bne 16 

3170: 17ae e6 70 inc za 

3180: 17b0 dO 01 bne 16 ;dec zaehler 

3190: 17b2 60 rts 

3200: 17b3 a5 6c 16 Ida dif3 

3210: 17b5 bO de bes 11 

3220: 17b7 20 fb 16 jsr u.o ;unten/oben 

3230: 17ba 18 clc 

3240: 17bb a5 6d Ida dif4 

3250: 17bd 65 69 adc difO 

3260: 17bf 85 6d sta dif4 

3270: 17c1 a5 6e Ida dif5 

3280: 17c3 65 6a adc dif1 

3290: 17c5 50 dd bvc 12 ‚unbedingt 

3300: s 

3310: s 

3520: ‚interne speicher 

3330: 1767 

3340: SERRRRURRRRRERUNEN 

3350: s 

3360: 17c7 00 xkl .byt 0 »xk- low-zwischenspeicher 
3370: 17c8 00 xkh .byt 0 ‚xk-high-zwischenspeicher 
3380: 17c9 00 yk: .byt 0 ;yk-zwischenspeicher 
3390: 17ca 00 zwis .byt 0 ;zwischenspeicher 
3400: 17cb 00 flg2 .byt 0 ;zwischenspeicher 
3410: s 

3420: - 

3430: ;tabellen 

3430: 17cc 

3440: SRRRUREREN 

3450: : 

3460: 

3470: ‚multiplikationstabelle 


3470: 17cc 
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3480: ;(n*320 fuer n=0 bis n=24) 

3490: ; 

3500: ;high-bytes 

3510: s 

3520: 17cc 00 01 02 mul.h :DYE50, 152,35:5316,7,.8710,14,12513,.15,,18 
3530: 17da 11 12 14 .byE.17,18,20,21,22,23,25.26.27.28.30.31 
3540: ’ 

3550: ;low-bytes 

3560: - 

3570: 17e6 00 40 80 mul.l .byt $00,$40,$80,$c0 

3580: 
3590: - 

3600: ;maskentabelle 

3600: 17ea 

3610: , 

3620: 17ea 01 02 04 msktab .byt %00000001 ,%00000010,%00000100,%00001000 
3630: 17ee 10 20 40 .byt %00010000,%00100000 ,%01000000,%10000000 
3640: 
>1630-17f2 
no errors 


o 
‘ 


Und hier der BASIC-Lader: 


100 for i = 5680 to 6130 

110 read x : poke i,x : s=s+tx : next 

120 data 76, 63, 22, 76, 60, 2, 76, 82, 22, 26, (922 
130 data 162, 0, 44,162,128,134,151, 32,145,148, 32, 96 
140 data: 22, 32,123; 22; 76,201, 22,162, O0, 44,162,128 
150: datas 32; 65, 22, 32,145,148, 32, 96,22, 76, &8, 23 
160 data 32,210,157,138,168,166, 21,192,200,176, 13,165 
170 data 20,224, 1,144, 6,208, 5,201, 64,176, 1, 96 
180 data 76,126,157,140,201, 23,141,199, 23,142,200, 23 
190 data 133, 20,134, 21,152, 74, 74, 74,170,189,204, 23 
200 data 133,173,138, 41, 3,170,189,230, 23,133,172,152 
210 data 41, 7, 24,101,172,133,172,165, 20, 41,248,133 
220 data 99,169, 32, 5,173,133,173, 24,165,172,101, 99 
230 data 153; 172, 19.173,11; 9,1331, 18; 8, Kia? 
240 data 73, 7,170,189,234, 23,133,171, 96,160, 0, 8 
250 data 165,171; 36,151, 48, 3, 73,255, 49,172, 44, 17 
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260 data 172,145,172, 40,164,111, 96,165,172, 41, 7,201 
270 data 7,240, 5, 56,169, 0,176, 4,169, 56,230,173 
280 data 101,172,133,172,169, 0,101,173,133,173, 96, 48 
290 data 226,165,172, 41, 7,240, 5, 24,169,255,144, 4 
300 data 169,199,198,173,101,172,133,172,165,173,233, 0 
310 data 133,173, 96, 70,171,144, 14,102,171,165,172,200 
320 data 24,105, 8,133,172,144, 2,230,173, 96, 16,235 
330 data 6,171,144, 14, 38,171,165,172,136, 56,233, 8 
340 data 133,172,176, 2,198,173, 96, 72,173,200, 23, 74 
350 data 173,199, 23,106, 74, 74,133,111,104, 72, 56,237 
360 data 199, 23, 72,138,237,200, 23,133,108,176, 10,104 
370 data 73,255,105, 1, 72,169, 0,229,108,133,106,133 
380 data 110,104 ,133,105,133,109,104,141,199, 23,142,200 
390 data 23,152, 24,237,201, 23,144, 4, 73,255 ,105 ‚254 
400 data 133,107,140,201, 23,102,108, 56,229,105,170,169 
410 data 255 ,229,106,133,112,164,111,176, 5, 10, 32, 42 
420 data 23, 56,165,109,101,107,133,109,165,110,233, 0 
430 data 133,110,132,111, 32,201, 22,232,208, 5,230,112 
440 data 208, 1, 96,165,108,176,222, 32,251, 22, 24,165 
450 data 109,101,105,133,109,165,110,101,106, 80,221, 0 
460 data 0, 0, 0, 0,0,1,2,3,5,6 78 
470 data 10, 11, 12, 13, 15, 16, 17, 18, 20, 21, 22, 23 
480 data 25, 26, 27, 28, 30, 31, 0, 64,128,192, 1, 2 
490 data 4, 8, 16, 32, 64,128, 0 


500 if s <> 47183 then print "fehler in datas !!" : end 

510 print ok 

520 rem 

530 rem basic-ende unter programmstart setzen: 

540 hi = 5679 : rem programm-startadresse- 1 
550 poke 55,hi-int(hi/256)*256 : rem low-byte end-adresse 
560 poke 56, int(hi/256) : rem high-byte 

570 celr : rem initialisieren 


Das versprochene kleine Demo: 


100 rem Breker 


110 rem ** ur 
120 rem ** Line-demo ** 
130 rem ** ur 
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140 rem Kakkcccccccc«g«‘ 


150 rem 

160 sp = 5680 : rem adresse setze punkt 

170 cp = 5683 : rem adresse loesche punktstep 
180 sl = 5686 : rem adresse setze linie 

190 cl 
200 rem 
210 graphic 2,1 : rem graphik ein + loeschen 

220 rem 

230 modus = sl : rem modus: zeichne linie 

240 gosub 340 

250 modus = cl : rem modus: loesche linie 

260 gosub 340 

270 modus = sp : rem modus: setze punkt 

280 gosub 410 

290 modus = cp : rem modus: loesche punkt 

300 gosub 410 

310 goto 230 

320 rem 

330 rem 

340 rem zeichenroutine 1: 

350 for x=0 to 319 step 5 

360 sys modus ‚80*sin(x/50)+100,30*sin(x/20)+60,x,x/2 
370 next x 

380 return 

390 rem 

400 rem 

410 rem zeichenroutine 2: 

420 for x=0 to 319 

430 sys modus ,x,60*sin(x/20)+100 

440 next x 

450 return 


5689 : rem adresse loesche linie 
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Wie Sie sehen, bietet Ihnen diese kleine BASIC-Erweiterung ins- 
gesamt 4 verschiedene Befehle mit folgender Syntax: 


setze Punkt an der Stelle x,y 

SyS CP,X,y lösche Punkt an der Stelle x,y 

sys sl,xl,yl,x2,y2 zeichne Linie von (xl,yl) nach (x2,y2) 
sys cl,xl,yl,x2,y2 - lösche Linie von (xl,yl) nach (x2,y2) 


SYS SP,X,Yy 


wobei für die Variablen sp, cp, sl und cl folgende Adressen 
einzusetzen sind: 


sp = 5680 
cp = 5683 
sl = 5686 
cl = 5689 


Anhand dieses Assemblerprogrammes wird Ihnen demonstriert, 
wie einfach eine BASIC-Erweiterung auf Ihrem Computer reali- 
siert werden kann, wie Werte vom BASIC-Programm an ein 
Maschinenspracheprogramm übergeben werden können und na- 
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türlich nicht zuletzt, wie eine schnelle Line- oder Punkt-Rou- 
tine in Assembler verwirklicht werden kann. 


Bei einem kleinen Geschwindigkeitsvergleich dieser hier ange- 
botenen Line-Routine und der des Betriebssystems (DRAW ... 
TO ...) werden Sie sehen, daß unser Algorithmus etwa um den 
Faktor 2 schneller ist, obwohl in unserer Routine bei jedem 
Aufruf erst noch die Adresse der Routine für den SYS-Befehl 
errechnet werden muß. 


2.1.3 Das Polarkoordinatensystem 


An dieser Stelle wollen wir auf eine alternative Form der Koor- 
dinatenfestlegung in einem Koordinatensystem eingehen. Es ist 
das sogenannte Polarkoordinatensystem, auf das auch noch in 
den Statistikprogrammen verwiesen wird und dessen Anwendung 
wir ja schon bei einer Variante des DRAW-Befehls kennenge- 
lernt haben. 


Doch was zeichnet nun das Polarkoordinatensystem aus? Im Ge- 
gensatz zum normalen Koordinatensystem, in dem ja ein Punkt 
durch eine X- und eine Y-Koordinate festgelegt ist, ist ein 
Punkt ım Polarkoordinatensystem durch die Länge der Geraden 
zwischen dem Punkt P und dem Koordinatenursprung sowie 
dem Winkel zwischen dieser Geraden und dem positiven Teil der 
X-Achse definiert. Dies mag im ersten Moment relativ kompli- 
ziert klingen, doch es ist relativ einfach, es anhand der folgen- 
den Zeichnung zu verdeutlichen: 
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Das Polarkoordinatensystem 


Y 


In einem Polarkoordinatensystem wird ein Punkt durch die 
Länge der Strecke S und durch den Winkel W bestimmt. 
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Doch was haben wir nun von dieser, im Gegensatz zum norma- 
len Koordinatensystem relativ komplizierten Bestimmung eines 
Punktes? Nun, es sprechen mehrere Grunde dafür: 


1. Es lassen sich sehr einfach Kreise um einen Punkt ziehen, 
indem einfach der Winkel W geändert und die Entfernung 
zum Koordinatenursprung L beibehalten wird. 


2; Es können auch Kreisausschnitte bezeichnet oder einzelne 
Punkte eines Kreises an einem bestimmten Winkel berech- 
net werden. Dies ist z.B. nötig, wenn man den Radius ei- 
nes Kreises oder einer Ellipse einzeichnen will. 


Obwohl diese Punkte alle für die Verwendung eines Polarkoor- 
dinatensystems sprechen, gibt es noch einen Punkt, der uns die 
Anwendung des Polarkoordinatensystems etwas erschwert. Es ist 
die Umrechnung dieser Koordinaten in die normalen X- und Y- 
Angaben, denn der Computer versteht ja nur diese Koordinaten. 
Um die Koordinaten umzurechnen, müssen wir uns etwas mehr 
mit den Winkelsätzen im rechtwinkligen Dreieck beschäftigen. 
Für den Fall, daß Sie sich in diesem Fachbereich der Mathema- 
tik nicht so gut auskennen sollten, haben wir an dieser Stelle 
noch einmal die Winkelsätze ım rechtwinklingen Dreieck be- 
schrieben: 


Die Definition des Sinus 


Die Definition des Sinus besagt, daß in einem rechtwinkligen 
Dreieck der Sinus des Winkels Alpha gleich dem Quotient von 
Gegenkathete und Hypotenuse ist. Anhand der folgenden Zeich- 
nung, können Sie sich diese Begriffe vergegenwärtigen: 
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Hypothenuse 


Gegenkathete 


Ankathete 


Folgende Gesetze gelten in einem rechtwinktigen Dreieck: 


Gegenkathete 
sin alpha = ———— 
Hypothenuse 
Ankathete 
cos alpha = —— 
Hypothenuse 


a 
In diesem Fall wäre also sin (wa) = — 
c 


Die Definition des Kosinus 


Diese zweite Winkelfunktion erklärt nun ein weiteres Verhältnis 
in einem rechtwinkligen Dreieck. Sie besagt nämlich, daß der 
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Kosinus von Alpha gleich dem Quotient von Ankathete und Hy- 
potenuse ist. Um das zu verdeutlichen, dient ebenfalls die obrige 
Zeichnung. 


Bezogen auf den Kosinussatz lautet unsere Gleichung 


b 
cos(wa) = — 
& 


Doch nun zu den eigentlichen mathematischen Berechnungen: 


Als erstes fällen wir ein Lot vom Punkt P zur X-Achse. Wir er- 
halten dann ein rechtwinkliges Dreieck, das aus einem Teil der 
X-Achse (Ankathete), einem Teil der Parallelen zur Y-Achse 
(Gegenkathete) und der Strecke L (Hypothenuse) gebildet wird. 
Unser Polarkoordinatensystem sieht dann jetzt so aus: 
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Bekannt sınd uns die Strecke L und der Winkel W. Mit diesen 
beiden Angaben können wir nun die Kathete und die Gegenka- 
thete des Dreiecks berechnen: Für die Berechnung der Gegen- 
kathete, also des Y-Wertes, gilt: 


Y=L*SIN (W) 
während für die Berechnung des X-Wertes folgende Formel gilt: 
“=L*COs (WW) 
Wollen Sie nun eine Ellipse zeichnen, so können Sie in beiden 
Formeln auch verschiedene Werte für L einsetzen. Das könnte 


dann beispielsweise so aussehen: 


Y=YR*SIN (W) und X=XR * COS (W) 
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wobei außer den genannten Parametern bedeuten: 


XR: Radius der Ellipse in X-Richtung 
YR: Radius der Ellipse in Y-Richtung 


Nun kommt es aber selten vor, daß wir einen Kreis oder eine 
Ellipse direkt um den Koordinatenursprung zeichnen wollen. 
Aus diesem Grund verschieben wir unseren Koordinatenur- 
sprung zum gewünschten Kreismittelpunkt. Die endgültigen 
Formeln sehen dann so aus: 


X = MX + XR * COS (W) und Y = MY + YR * SIN (W) 


wobei MX und MY jetzt die Koordinaten des Kreismittelpunk- 
tes darstellen. Da der Winkel W in Radiant angegeben werden 
muß, wir aber in Grad rechnen, hier noch die Formeln zur 
Umrechnung von Grad ın Radiant und umgekehrt: 


Radiant = Grad * (3.1415 / 180) 
Grad = Radiant / (3.1415 / 180) 


Probieren Sie doch nun einmal das oben erlangte Wissen selb- 
ständig in einem kleinen Programm aus! Setzen Sie z.B. den X- 
Radius auf 50, den Y-Radius auf 40 und erhöhen Sie in einer 
Schleife den Winkel W. Nachdem Sie dann die Koordinaten um- 
gerechnet haben, können Sie mittels DRAW den Punkt setzen. 


2.1.4 Kreis und Ellipsenberechnung im Polarkoordinatensystem 


Auch das Problem des Ellipsen und Kreisberechnung ist jetzt, 
da wir ja das Verfahren ım Polarkoordinatensystem schon ken- 
nen, recht einfach zu lösen. Wir errechnen unseren Punkt, indem 
wir jeweils 360mal unseren Winkel erhöhen, und jedesmal nach- 
dem dieses geschehen ist, eine "unsichtbare Linie" der Länge R 
von unserem Ursprungspunkt ziehen. Das entstehende Ende der 
Linie merken wir uns nun, und verbinden anschließend das 
Ende der nächsten Linie mit unserem vorherigen Ende. Ist das 
360mal geschehen, so erhalten wir einen vollständigen Kreis. 
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In dem folgenden Demoprogramm ist dieses Verfahren unter 
Ausnutzung des Polarkoordinatensystems des Draw-Befehls 
durchgeführt worden. Um die Anwendung noch einmal zu ver- 
deutlichen, habe ich jedoch die einzelnen Radien in dieses Pro- 
gramm einzeichnen lassen. 


Unter dem Programm finden Sie dann zwei Verdeutlichungs- 
grafiken, bei denen die erste daraus entstanden ist, das die "0" 
beim Draw-Befehl durch eine "1" ersetzt wurde. Damit wird die 
sonst "blind" gezeichnete Linie sichtbar. Die sich daran an- 
schließende Schaugrafik zeigt dann, wie genau jeder einzelne 
Punkt dieses Kreises berechnet wird. 


100 rem RrrHRHHHRHHHERERRHREHHHHEHEHHERHHHHHHHHHHÖHHHHHR 


110 rem ### RR 
120 rem ### zeichnen eines kreises HRR 
130 rem HH _---- nennen nn nn nn nn nn nn HHH 
140 rem ### HHH 
150 rem ER HRHHHHHRHHHREHHHHRRHHHHHHHRRRHHHHHR 
160 : 


170 for w=0 to 360 

180 draw ‚160,100 to 100;w 

190 x=rdot(0) 

200 y=rdot(1) 

210 if fl=0 then fl=1:xa=x:ya=y 
220 draw ‚xa,ya to x,y 

230 next x 
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Prinzip der Kreisberechnung im Polarkoordinatensystem 


er p 1 





Wie Sie hier sehr gut sehen können, wird der Kreis eigentlich 
aus einer Vielzahl von Linien gebildet. Es werden nämlich die 
Eckpunkte eines in einem bestimmten Abstand vom Ausgangs- 
punkt stehenden Radius jeweils mit einer Linie verbunden, so 
wie das in unserem Beispiel mit den Punkten pl und p2 ge- 
schieht. 
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Weitaus schwieriger ist schon das Zeichnen von Ellipsen, zumal 
wir hier nicht den Draw-Befehl zu Hilfe nehmen können, da 
der uns ja nur einen Radius erlaubt. Also müssen wir nun das 
oben angesprochene Polarkoordinatensystem sozusagen "zu Fuß" 
programmieren. Aus unserer Umrechnung vom Polarkoordina- 
tensystem in das normale, kartesische Koordinatensystem erga- 
ben sıch wie sıch sich erinnern, folgende Formeln: 


x = |*cos(w) 
y = |*sin(w) 


wobei wir nun die Längenvariable, die die Ordinate (die Y-Ko- 
ordinate) ergibt, durch den Y-Radius und die Abszisse (die X- 
Koordinate) durch den X-Radius ersetzen. 


Jetzt müssen wir nur noch den Mittelpunkt unseres Kreises oder 
unserer Ellipse errechnen. Das erreichen wir durch Addieren der 
Koordinaten des Mittelpunktes zu den entsprechenden Koordi- 
naten des Kreispunktes. Wir erhalten also folgende Formeln: 


xr*cos(w)+xmitte 
yr*sin(w)+ymitte 


x 
y 


Nun brauchen wir nur noch in einer bestimmten Schleife die 
einzelnen Winkelabschnitte durchzugehen und unsere Endpunkte, 
die wir ja mit diesen Formeln errechnen, mit einer Linie, ähn- 
lich wie wir das ja schon beim obengenannten Verfahren durch- 
geführt haben, zu verbinden. Indem wir nun noch die Schritt- 
weite der Schleife variieren, haben wir noch zu guter letzt die 
Möglichkeit, verschiedenartige Polygone zu zeichnen, deren Ec- 
kenzahl wir, ähnlich der Formel, die wir beim CIRCLE-Befehl 
kennengelernt haben, mit folgender Formel errechnen können: 


anzahl der ecken = 360/schrittweite 


Damit stehen uns alle benötigten Mittel zur Verfügung, um nun 
unser Wollen in die Tat umzusetzen, und die Ellipse zu zeichnen: 
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100 rem HArRHHHRRHRHRRHÄHERHHHHERHEHHÖHHERHHHHHRHÄHHHHHTR 


110 rem ### HHH 
120 rem ### zeichnen einer ellipse HERR 
130 rem Hi,  -rrrninddnn nen etnn nen RK 
140 rem ### HER 
150 rem HRRHHHRERHRRRHRRRRRRÄRRRHHHEHHHERHHHHHHHHHRRHHHE 
160 : 

170 xr=160:yr=100 : rem die radien 

180 xm=160:ym=100 : rem der mittelpunkt 
190 sw=4 * (pi/180) : rem die schrittweite 
200 : 

210 pi=3.1415926 : rem pi 

220 eb=0 * (pi/180) : rem ellipsenanfang 

230 ee=360 * (pi/180) : rem ellipsenende 

240 : 

250 rem ### ellipse zeichnen ### 

260 : 


270 for z=zeb to ee step sw 

280 x=xr*cos(w)+xm 

290 y=yr*sin(w)+ym 

300 if fl=0 then fl=1:xa=x:ya=y 
310 draw ‚x,y to xa,ya 

320 xa=x:ya=y 

330 next 


2.15 Die Achtelkreismethode 


An dieser Stelle möchte ich noch einen Nachtrag zu den Zeilen 
190, 220 und 230 anführen. Wie Sie ja wissen, rechnet Ihr Com- 
puter nicht, wie wir dies wohl gewohnt sind, in Altgrad, dessen 
Einteilung von 0 bis 360 reicht, sondern in Radiant (0 bis 2*pi). 
In diesen Zeilen werden nun die Angaben, die in Altgrad ange- 
geben sind, nach Radiant umgerechnet. 


Es gibt nun noch eine zweite, sehr schnelle Methode, einen 
Kreis zu zeichnen, die sogenannte Achtelkreismethode. Hierbei 
werden nach jeder Berechnung insgesamt 8 verschiedene Punkte 
des Kreises gezeichnet. So reduziert sich die Zeit zum Zeichnen 
des Kreises auf etwa ein achtel. Ausgehend von den 4 Vierteln 
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(0, 90, 180 und 270 Grad) wird der Kreis so jeweils in und ge- 
gen den Uhrzeigersinn gezeichnet. Dabei geht man folgender- 
maßen vor: 


Angenommen, man hat die Koordinaten eines Kreispunktes bei 
l Grad nach dem alten Algorithmus (s.o.) berechnet und den 
entsprechenden Punkt des Kreises gezeichnet. Dieser befindet 
sich nun im rechten oberen Viertel des Kreises. Da ein Kreis 
nun ein sehr symmetrisches Objekt ist, kann dieser Punkt nun 
an dem senkrechten Durchmesser des Kreises gespiegelt werden. 
Die y-Koordinate dieses dadurch entstehenden neuen Punktes 
(im linken oberen Viertel) ist identisch mit der des Ursprung- 
punktes. Lediglich die x-Koordinate ist nach folgender Formel 
umzurechnen: 


x2 = xmitte-(x1l-xmitte) 
x2 = 2*xmitte-x| 


Dabei ist xmitte die x-Koordinate des Kreismittelpunktes. Da 
man zu den Koordinaten ja sowieso erst zum Schluß kurz vor 
dem Zeichnen die Mittelpunktkoordinaten hinzuaddiert (s.o.), 
braucht man in der obigen Gleichung die Rechnerei mit xmitte 
gar nicht, sondern rechnet einfach: 


x2U = -xlÜ 


Dabei sind x2U und xIlU die Koordinaten des Kreises mit dem 
Mittelpunkt im Ursprung. 


Damit kommt man sehr "billig" an einen zweiten Kreispunkt. 
Doch nicht genug. Spiegelt man diese beiden Punkte um den 
waagerechten Durchmesser, so erhält man wieder zwei neue 
Punkte. Diese beiden Punkte errechnet man folgendermaßen: 


x3U = xlU und x4U = x2U = -xlU 
y3U= - ylU und y4U= - y2U = -ylU 


Auch hier sind (x3U,y3U) und (x4U,y4U) die Koordinaten der 
beiden in der unteren Hälfte des Kreises (um den Nullpunkt) 
liegenden Punkte. 
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Durch eine Drehung dieser nunmehr 4 Punkte um den Null- 
punkt erhält man 4 weitere Punkte, die jeweils rechts und links 
vom Kreismittelpunkt liegen. Diese Punkte p5,p6,p7,p8 erhält 
man durch folgende Rechnungen: 


xSU = ylU und ySU= xlU 
x6U: = ylU und y6U = -xlU 
x7U = y3U = -ylU und y7U= xlU 
x8U = y3U = -ylU und y8U = -xlU 


Die untenstehende Zeichnung mag diesen Sachverhalt noch er- 
läutern. Man kann also durch einfache Vorzeichenwechsel 8 
verschiedene Koordinaten des Kreises berechnen. Nach diesen 
Spiegelungen und Drehungen addieren wir jeweils noch die 
Mittelpunktskoordinaten hinzu und schon liegen wir wieder 
richtig. 
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Achtelkreistechnik 





Der Nachteil dieser Kreisberechnung: Es werden stets nur volle 
Kreise gezeichnet. Einfache Bögen sind dagegen nur mit viel 
Aufwand zu realisieren. Weiterhin fällt die Möglichkeit flach, 
die Routine auch für Polygone zu verwenden. Bei Ellipsen ist 
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der letzte Schritt (die Drehung) nicht ohne weiteres möglich, 
hier kann also nur die Viertelkreistechnik verwandt werden. 


Ein kleines Programm soll das oben Gesagte kurz veranschauli- 
chen: 


100 rem KERN TA N N TA A a HH A a a a a a a 


110 rem ** Br 

120 rem ** achtelkreistechnik ** 

130 rem ** “r 

140 rem KKKKKKKHHTTTT TI TI I TH N A KH Ha a 

150 rem 

160 rem initialisierung 

170 graphic 2,1 :rem graphik ein und clr 
180 r=50 :rem radius 

190 xm=160:ym=100 :rem mittelpunktskoordinaten 
200 pi=3.1415926 :rem konstante pi 

210 sw=pi/180 :rem schrittweite = 1 grad 
220 rem 

230 rem hauptschleife 

240 for w=0 to 45*pi/180 step sw 

250 xul=r*cos(w) :rem x-koordinate 

260 yuil=r*sin(w)g 

280 yi=yui+ym :rem koorinaten gemaess 
290 xn=-xul+xm :rem mittelpunkt verschoben 
300 yn=-yul+ym 

310 xo=-xui+ym 

320 yo=-yui+xm 

330 xs=xuil+ym 

340 ys=yui+xm 

350 draw,x1,y1 :rem 8 punkte zeichnen 
360 draw „ys,Xs 

370 draw ‚ys,xo 

380 draw ‚x1,yn 

390 draw ‚xn,yn 

400 draw ‚yo,xo 

410 draw ‚yo,xs 

420 draw ‚xn,y1 

430 next 
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Jetzt, da wir nun bereits das Grundwissen über allgemeine Gra- 
fikprogrammierung besitzen, wollen wir uns mit einem schon 
viel komplexeren Problem beschäftigen, der dreidimensionalen 
Grafik. Sie selber haben bestimmt schon einmal, vorwiegend in 
Werbungen, eine 3-D-Grafik betrachten können, und müßten 
dann auch am besten wissen, was für eine Ausstrahlung hinter 
einer solchen Grafik steckt. Die Krönung wird natürlich durch 
die bewegte dreidimensionale Grafik erreicht. Größere Compu- 
ter sind heute schon in der Lage, ganze Zeichentrickfilme in 
diesem Verfahren herzustellen. Doch so hoch hinaus wollen und 
können wir auch nicht. Noch nicht. Denn uns fehlen bis jetzt 
die theoretischen Voraussetzungen, um diese sehr ästhetische Art 
der Grafik zu programmieren. Um nun auch unserem Computer 
diese Form der Grafik beizubringen, bedarf es (leider) einiger 
Theorie, die ich Ihnen im folgenden beschreiben will: 


Um ein Gebilde räumlich darzustellen, ist es mit dem herkömm- 
lichen Koordinatensystem nicht mehr getan, da wir in diesem 
nicht unterscheiden können, ob ein Punkt vorne oder aber in 
weite Ferne gerückt ist. Wir müssen also eine Raumachse ein- 
führen, die üblich auch ’Z-Achse’ heißt. Auf dieser Achse kön- 
nen wir nun auch die Raumkoordinaten eines Punktes festlegen: 
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Das 3-D-Koordinatensystem 


Y yr 


ar 


X Tr 


X 


Wie zeichnet man nun einen Punkt in ein solches Koordinaten- 
system ein? - Nun, zunächst einmal verfahren wir genau so, wie 
wir es von dem zweidimensionalen Koordinatensystem gewohnt 
sind. Danach zeichnen wir eine Parallele zur Z-Achse, die durch 
den entstandenen Punkt, nennen wir ihn ’p’, verlaufen muß. Auf 
dieser Parallelen tragen wir nun den Abstand der Z-Koordinate 
ab und erhalten unseren neuen dreidimensionalen Punkt. 
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Das Problem, das sich ergibt, ist folgendes. Wir müssen einen 
Rechnenalgorithmus finden, der es uns ermöglicht, einen Punkt 
mit 3-D-Koordinaten in einen gleichen mit 2-D-Koordinaten 
umzurechnen. 


Eine Zeichnung soll uns dabei helfen: 


Das 3-D-Koordinatensystem 





zr*sin(w) 


zr*rcos(w) 
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Wie aus der Zeichnung ersichtlich, ergeben sich folgende For- 
meln zur Umrechnung eines Punktes im 3-D-Koordinatensystem 
in das zweidimensionale: 


xr + zr * cos(w) 
yr + zr * sin(w) 


X 
F 


Die Vorgehensweise ist nun folgende: Zunächst müssen wir das 
Lot vom Punkt P fällen. Nun bildet sich ein rechtwinkliges 
Dreieck mit den Punkten xr,p und dem Schnittpunkt des Lotes 
von P mit der X-Achse. Hier haben wir nun die Möglichkeit, 
die fehlende Strecke, die von xr bis zu dem Schnittpunkt des 
Lotes von p mit der X-Achse reicht, über die Winkelsätze zu 
errechnen. 


Anschließend verfahren wir genauso mit dem fehlenden Stück in 
Y-Richtung und erhalten schließlich folgende 2 Formeln: 


X=xr+ zr*cos(w) 
Y=yr+ zr*sin(w) 


Damit sie nun auch die Möglichkeit haben, verschiedene Para- 
metereinstellungen auszuprobieren, haben wir einen 3-D-Desig- 
ner, den Sie ja vielleicht schon aus dem Grafikbuch zum Com- 
modore 64 kennen, auf den Commodore 16 übertragen: 


100 rem Gh ha 
110 rem vr kr 
120 rem ** 3-d-designer ** 
130 rem sr Kr 
140 rem Var a a a 
150 rem 

160 rem 

270 rem 

280 rem he 

290 rem **%*%* parameter *** 
300 rem Krk 

310 rem 


320 fi =5 : f2=5 .:: f3 = 3 : rem zerrung 
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330 ar = 15 : br = 0 : er = 10 : rem verschiebung der raumkoord. 
340 w = 3.1415926/4: rem sichtwinkel (in rad) 

350 si = sin(w) : co = cos(w) : rem konstanten 

360 vi = 100 : v2 = 180 : rem verschiebung der ebenenkoord. 

370 rem 


380 rem Kakhacrkre 


390 rem **** wumrechnung *** 

400 rem akku 

410 rem 

420 color 0,1 : rem hintergrundfarbe 

430 color 1,6 : rem zeichenfarbe 

440 color 4,1 : rem rahmenfarbe 

450 graphic 1,1 : rem graphik init 

460 fg=0:if vi<O or vi1>319 then fg=1:goto 480 : rem flag 
470 draw ‚v1,0 to v1,199 : rem raum-z-achse 

480 if v2<O or v2>200 then fg=1:goto 500 

490 draw „O,v2 to 319,v2 : rem raum-x-achse 

500 z2 = vi - (199-v2)/si*co : zi = vi + v2/si*co 

510 if fg=0 and z1i>=0 and z1<320 then draw ‚vi1,v2 to z1,0: rem rau 
m-y-achse oben 

520 if fg=0 and z2>=0 and z2<320 then draw ‚v1,v2 to 22,199: rem r 
aum-y-achse unten 

530 read ap : dim x%(ap),y%(ap) : rem anzahl punkte 

540 for za=1 to ap : rem punktezahl 

550 read xr,zr,yr 

560 x%lza) = fi*lxr+ar) + f3*lyr+cr)*co+vi 

570 y%lza) = -f2*(lzr+br) - f3*(yr+er)*si+v2 

580 next za : rem naechster punkt 


590 rem 

600 rem arıkkkkr% 

610 rem *k#%* striche *** 
620 rem aakkkıcr 

630 rem 


640 read al : rem anzahl linien 

650 for za=1 to al 

660 read p1,p2 : rem punktnummern lesen 

670 if x%Cp1)<0 or y%lpi)<O or x%lp2)<0O or yAlp2)<0O then goto 
700:rem ausserhalb 

680 ifx%(p1)>319ory%Cp1)>199orx%(p2)>319ory%(p2)>199then goto 700: 
rem ausserhalb 
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690 draw ‚x%(p1),y%(pl) to x%(p2),y%(p2) : rem verbinden 
700 next za : rem naechste linie 

710 getkey a$ 

720 graphic 0,1 : list : rem graphik aus 


730 rem 

740 rem Ve 

750 rem **** koordinaten **** 
760 rem Kerr 


770 data 10 : rem anzahl punkte 

780 data 0, 0, 0, 6, 0, 0, 6,10, 0 
7% data 0,10, 0, 3,12, 0::3,95,13 
800 data 6,10,15, 6, 0,15, 0, 0,15 
810 data 0,10,15 


820 rem 

830 rem Krhkkkkkankie 

840 rem **** verbindungen **** 
850 rem Kr 


860 data 17 : rem anzahl linien 


8700 data ı 1,v.2v 2,23; ndash 
Ben ats 4,5, 3,5 3,8, 8,7 
870, dafaı f, Br, uch; 18; 2,578, 
900 data 9, 1, 9,10, 10, 4, 10, 6 
910 data 10, 7 
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Das Ergebnis 





22 Hardwaregrundlagen 


Bekommen Sie keinen Schreck, wenn Sie diese Überschrift lesen! 
Ich will in diesem Abschnitt keineswegs Ihren oder meinen 
Computer "auseinandernehmen". Mir geht es in diesem Kapitel 
nur darum, verständlich zu machen, wie in groben Abläufen das 
Darstellen von Zeichen oder Grafik auf dem Grafik- und Text- 
bildschirm überhaupt funktioniert. Erst durch diese Grundlagen, 
die ja damit geschaffen werden, ist ein wirklich sinnvolles Ar- 
beiten (natürlich in Bezug auf Grafik) erst möglich. 


2.2.1 Die Register des TED 


TED, so nennt sich der universale Controller des C16. Universal 
deshalb, weil er nicht nur für die Grafik, sondern auch für den 
Sound und andere I/O-Funktionen zuständig ist. Dieser TED, 
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dessen 32 Register ab der Adresse $FFOO liegen, werden nun im 
folgenden beschrieben, weil sie die Grundlagen für viele, oder 
mehr noch, sogar für aller Grafikanwendungnen sind. Die 
Funktionen dieser Register sind nun im folgenden beschrieben: 
Register 300/00 SFF00 (65280) Low-Byte Timer A 

In diesem Register befindet sich der augenblickliche Wert des 
Low-Bytes von Timer A. 


Register 801/01 3FFOI (65281) High-Byte Timer A 


Hier befindet sich das High-Byte des Timer A. 


Register 302/02 3FFO2 (65282) Low-Byte Timer B 


Dieses Register enthält das Low-Byte des Timers B entsprechend 
zu Register 0. 


Register 303/03 3FFO3 (65283) High-Byte Timer B 


In diesem Register befindet sich, analog zu Register 1, das 
High-Byte des Timers B. 


Register 304/04 3FFO4 (65284) Low-Byte Timer C 


Dieses Timer-Register enthält das Low-Byte des Timers C. 


Register 305/05 3FFO05 (65285) High-Byte Timer C 


Dieses nun letzte Timer-Register enthält den High-Byte des Ti- 
mers C. 
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Register 306/06 3FF06 (65286) Multi-Function-Register I 


Bits 0-2: 


Bit 3: 


Bit 4: 


Bit 5: 
Bit 6: 


Bit’: 


Diese Bits bewirken eine vertikale Verschiebung des 
Bildschirms um jeweils ein Pixel. 

Um die entstehenden Lücken beim vertikalen 
Smooth-Scrolling zu "vertuschen", kann mit diesem 
Bit die Länge des Bildschirms von 25 auf 24 Zeilen 
verkürzt werden. 

Screen enable - dieses Bit schaltet den Bildschirm an 
und aus. Wenn der Bildschirm abgeschaltet ist, führt 
der Computer alle Routinen wesentlich gleichmäßi- 
ger aus, da der Prozessor des C16 nicht mehr durch 
den TED gestoppt wird, damit dieser Zeit hat, das 
Videobild aufzubauen. 

=0: Graphikmodus aus / =1: Graphikmodus ein 
Cursor enable - ist dieses Bit gesetzt, so verschwin- 
det der Cursor, bei gelöschtem Bit erscheint der 
Cursor, an der vorgegebenen Position (s.u.). 

Funktion unbekannt 


Register 807/07 3FF07 (65287) Multi-Function-Register II 


Bits 0-2: 


Bit 3: 


Bit 4: 


Bit 5: 
Bit 6: 


Diese Bits bewirken eine horizontale Verschiebung 
des Bildschirms um jeweils ein Pixel. 

Dieses Bit ist dafür zuständig, daß der Bildschirm 38 
oder 40 Spalten breit ist. Dieses kommt dem Pro- 
grammierer ebenfalls bei der Durchführung des 
Smooth-Scrollings zu gute. 

Multicolor enable - wenn dieses Bit gesetzt ist, so 
erscheinen die Punkte der hochauflösenden Grafik 
doppelt so breit, allerdings kann dann ein Punkt 
mehr als 4 Farben annehmen. 

Funktion unbekannt 

Dieses Bit entscheidet, ob PAL oder NTSC-Norm 
ausgewählt ist. 
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Bit 7: Invert off - ist dieses Bit gesetzt, wird die hard- 
waremäßige Invertierung aller Zeichen, die einen 
größeren Bildschirmcode als 128 haben, ausgeschal- 
tet. Statt dessen können Sie nun den Groß/Grafik 
und den Klein/Groß-Zeichensatz darstellen. 


Register 508/08 SFFOß8 (65288) Tastaturregister 


Dieses Register ist für die Auswertung der Tastatur zuständig. 
Die genaue Funktion dieses Registers würde an dieser Stelle den 
Rahmen des Buches sprengen. 


Register 309/09 SFF09 (65289) Interrupt Register (IRR) 


Dieses Register ist für das Interrupt-Handling zuständig. Soll ein 
Interrupt bei einem bestimmten Ereignis ausgelöst werden, so ist 
die dazu korrespondierende Bitnummer zusammen mit dem 7. 
gesetztem Bit in dieses Register zu schreiben. Den einzelnen Bit- 
nummern entsprechen folgende Ereignisse: 


Bit 0: keine Funktion 

Bit: 1; Rasterzeileninterrupt. 

Bit 2: Light-Pen-Interrupt 

Bit 3: Interrupt ausgelöst durch Timer A 
Bit 4: Interrupt ausgelöst durch Timer B 
Bit 5: keine Funktion 

Bit 6: Interrupt ausgelöst durch Timer C 
Bit 7: Interrupt-Flag 


Beim Lesen dieses Registers können Sie durch das Bitmuster, 
welches sich ergibt, herausfinden, welcher Interrupt eingetreten 
ıst. Falls ein Interrupt eingetreten ist, ist in jedem Fall zusätzlich 
Bit 7 gesetzt. 
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Register 350a/10 SFFO0A (65290) Interrupt Register (IMR) 


Bit 0: keine Funktion 

Bit 1: Rasterinterrupt erlauben/nicht erlauben 

Bit 2 Light-Pen-Interrupt erlauben/nicht erlauben 
Bit 3: Timer 1 - Interrupt ein/aus 

Bit 4: Timer 2 - Interrupt ein/aus 

Bit 5: keine Funktion 

Bit 6: Timer 3 - Interrupt ein/aus 

Bit 7: - 


Dieses Register ist die Maske des IRR. Ist hier ein Bit gelöscht, 
so ist der entsprechende Interrupt eingeschaltet, d.h. durch das 
entsprechende Ereignis kann zukünftig ein Interrupt ausgelöst 
werden. Ist das Bit gesetzt, so ist der Interrupt gesperrt. 


Register $0b/11 3FFOB (65291) Rasterinterrupt 

In diesem Register geben Sie die Rasterzeile an, bei deren 
Strahldurchlauf des Bildschirm-Elektronenstrahls ein Interrupt 
ausgelöst werden kann. 

Register $0c/12 3FFOC (65292) Cursorposition High-Byte 

In den unteren beiden Bits dieses Registers geben Sie die Bild- 
schirmposition des hardwaremäßig darstellbaren Cursors an. 


Register 304/13 3FFOD (65293) Cursorposition Low-Byte 


Dieses Register enthält die unteren 8 Bits der Bildschirmposition 
des Hardwarecursors. 
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Register $0e/14 SFFOE (65294) Tonhöhe - TG 1 (Bits 0-7) 

In diesem Register können Sie die untersten 8 Bits der Tonhöhe 
unterbringen, wenn Sie über den Tongenerator I einen Ton aus- 
geben wollen. 

Register $0f/15 3FFOf (65295) Tonhöhe - TG 2 (Bits 0-7) 

In diesem Register können Sie die untersten 8 Bits der Tonhöhe 
unterbringen, wenn Sie über den Tongenerator 2 einen Ton aus- 
geben wollen. 

Register 310/16 3FFI10 (65296) Tonhöhe - TG 2 (Bits 8/9) 
Dieses Register beherbergt die obersten zwei Bits der Tonhöhe 
von Tongenerator 2. 

Register 811/17 8FFI11 (65297) Multi-Function-Register III 


Bit 0-3: Lautstärke (Werte von 0-8) 


Bit 4: Tongenerator 1 ein/aus 
Bit 5: Tongenerator 2 ein/aus 
Bit 6: Tongenerator 2: Rauschen ein/aus 
Bit 7: keine Funktion bekannt 


Register $12/18 3FF12 (65298) Multi-Function-Register IV 


Bit 0/1: Tonhöhe - Tongenerator 1 (Bits 8/9) 

Bit 2: Zeichensatz in ROM oder RAM 

Bit 3-7: Bits 11-15 der Basisadrese der hochauflösenden 
Graphik 
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Register 313/19 S8FF13 (65299) Zeichensatz- Adresse 
Bits 2-7 dieses Registers enthalten die Adreßbits 10-15 der 
Zeichengenerator-Basisadresse. 
Register 514/20 3FFI4 (65300) Basisadresse Farb-/Videoranı 
In diesem Register ist das High-Byte der Basisadresse des ganz 
normalen Farbspeichers und des Video-RAM niedergelegt, die 
bei der normalen Textdarstellung und der Graphik verwendet 
werden. 
Register 815/21 3FF15 (65301) Hintergrund farbe 
Register $16/22 3FF16 (65302) Zeichenfarbe 
Register 317/23 S3FF17 (65303) Multicolor-Farbe I 
Register $18/24 3FF18 (65304) Multicolor-Farbe 2 
Register 319/25 3FF19 (65305) Rahmenfarbe 
Register $la/26 SFFIA (65306) Bit-Mapping | 
Register $1b/27 SFFIB (65307) Bit-Mapping 2 
Register $1c/28 SFFlc (65308) Aktuelle Rasterzeile Bit & 
Dieses Register gibt Ihnen Bit 8 der momentanen Position des 
Elektronenstrahls an, der das Bild auf dem Monitor/Fernseher 
aufbaut. 
Register $ld/29 3FFlId (65309) Aktuelle Rasterzeile Bits 0-7 


Wie Register 28, nur Bits 0-7 
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Register $le/30 SFFIE (65310) Rasterspalte 


Register $1f/3l 3FFIF (65311) Vertikal- Adresse 


2.2.2 Der Textbildschirm 


Fangen wir zunächst mit der Textgrafik an, dem Grafikmodus 
also, den Sie sehen können, wenn Sie den Computer frisch ein- 
geschaltet haben. Für jederman ist es fast normal, daß ein Drüc- 
ken auf eine Buchstabentaste ein Darstellen dieses entsprechen- 
den Zeichens auf dem Bildschirm zur Folge hat. Doch niemand 
macht sich so recht darüber Gedanken, wie diese Darstellung 
überhaupt zustande kommt. 


Dazu müssen Sie nun folgendes wissen: Die Zeichen, die Sie auf 
Ihrem Bildschirm sehen können, werden in einem bestimmten 
Teil des Speichers Ihres Computer abgelegt. Dabei besitzt jedes 
Zeichen einen anderen Code. Dieser Speicher wird auch Bild- 
schirmspeicher, oder Video-RAM bezeichnet, und ist wie folgt 
aufgebaut: 


3072 3073 3074 3075 3076 3077 3078 3079 3080 ... bis 3111 
3112 
3152 
3192 
3232 
3272 
3212 
3252 


bis 4032 


Die einzelnen Bildschirmcodes (die Codes also, die den einzelnen 
Zeichen entsprechen) können Sie übrigens in unserem Anhang 
nachschlagen. 
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Soll nun in der linken, oberen Ecke des Bildschirms ein ’A’ er- 
scheinen, so müssen Sie den Code, der diesem ’A’ entspricht in 
den Bildschirmspeicher bringen. Das geschieht in BASIC mit 
dem POKE-Befehl. Um nun also ein ’A’ in der linken, oberen 
Ecke erscheinen zu lassen, ist also folgender Befehl notwendig: 


POKE 3072,1 


Ähnlich wie die Speicherung der Zeichen vonstatten geht, funk- 
tioniert nun auch die Speicherung der Farbe und der Hellig- 
keitswerte: Diese sind nämlich in dem sogenannten Farb-RAM 
gespeichert, das genauso angeordnet ist wie der Bildschirmspei- 
cher, nur, daß es die Startadresse 2048 trägt. Doch in Codezu- 
weisung der einzelnen Farbe gibt es Unterschiede. Wie Sie viel- 
leicht wissen, besteht ein einziger dieser Codes aus einer Zahl 
der Wert zwischen O0 und 255 liegt. Da wir einen 8-Bit-Compu- 
ter besitzen, ist dies ja auch nur logisch, den 2*8 ergibt = 256, 
also existieren auch 256 mögliche Zahlenkombinationen (die ’0’ 
mit eingeschlossen). In den unteren 4 Bits dieses Codes wird nun 
die Farbe abgelegt, in den folgenden 3 Bits die Helligkeitswerte 
und schließlich wird im 7. Bit auch noch gespeichert, ob das 
Zeichen blinken soll oder nicht. Ein Schaubild mag dieses ver- 
deutlichen: 


Bittumer:0 1 2 34,5 6 7 


r - od oa — -. - od ZE 
r+ -: ® - a re ı—- DD z 
a or —- - oo I 
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Somit können wir eine Formel aufstellen, die die richtigen Bit- 
kombinationen für Farbe und Helligkeit errechnet, und das 
Farb-RAM schreibt: 


poke 2048+xk+40*yk farbe+lum*16 
Folgende Variablen werden hierbei gebraucht: 


xk: X-Koordinate des Zeichens, das geändert werden soll 
yk: Y-Koordinate des Zeichens 

farbe: Farbe des Zeichens (0-15) 

lum: Helligkeit (0-7) 


Hinweis: Achten Sie stets darauf, daß der Helligkeitswert die 
zulässige Größe nicht überschreitet, da das Zeichen sonst an- 
fängt zu blinken. 


Damit wären nun alle Speicher, die für den Aufbau des Text- 
bildschirms zuständig sind, erklärt. Doch halt! Woher weiß der 
Computer den überhaupt wie ein einziges Zeichen genau ausse- 
hen soll. Durch den Bildschirmcode wird ihm doch gezeigt, 
welches Zeichen er aus einer Vielzahl von möglichen auswählen 
soll. Es muß also noch einen Speicher geben, der das Aussehen 
aller Zeichen beinhaltet. Und in der Tat, ein solcher existiert 
wirklich. Dieser Speicher wird Zeichensatzspeicher, oder, das ist 
die wohl gebräuchlichere Wendung, Chargenerator genannt, und 
ist folgendermaßen aufgebaut: 


2.2.3 Der Charactergenerator 


vr 

.. .o. 
„ee, 
KR KK, 
WR 
ara 
Kr 
“ ..o = 
vr RK 
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Wie Sie sehen, ist die untere Matrixreihe beim ’A’ frei. Das muß 
so sein, denn Ihr Computer kennt ja auch noch Zeichen, deren 
unteres Ende tiefer reicht als das des "A". Beispiele sind: "pq,; 
". Die Matrix des Buchstaben "p" sieht also so aus: 


Nun wissen Sie also, wie die Zeichen im Zeichensatz Ihres Com- 
puters aufgebaut sind. Wir werden Ihnen allerdings noch ein 
kleines Programm vorstellen, das Ihnen jede Zeichenmatrix ver- 
größert und ausgibt: 


100 
110 
120 
130 
140 


rem -- auslesen und vergroessern -- 
rem --- .. 
rem -- der gesuchten zeichen --- 


150 : 


160 


ad=8192 :rem startadresse der zeichen 


170 : 


180 
190 
200 


scenclr 
color 4,1:colorO, 1 
color 1,7 


210 : 


220 
230 
232 


print" welches zeichen?" 
getkey a$ 


237 gosub 380 
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238 : 


239 


240 : 


250 
260 
270 


rem --- zeichenmatrix berechnen --- 


280 : 


290 


:for t=0to7 


:rem 8 zeilen 


300 : for i=0to7 :rem 8 spalten 

310 : locate i,t:b=rdot(2) :rem auf punkt testen 
320 :  ifb=Othen print!".";:else print"*";:rem ausdruck 

330 : next i rem spaltenschleife 
340 : print :rem zeilenvorschub 
350 :next t :rem zeilenschleife 
360 : 

370 getkey a$:rem auf taste warten 

371 run :rem und neu starten 

372 : 

373 rem --- en iin nnd nen een snnn nn 

374 rem ---- zeichen "kopieren" ---- 

375 rem *-- iin innen nn 

3176 : 

380 graphic1 :rem grafik anschalten 

385 char1,0,0,a$:rem buchstaben in grafik schreiben 

386 graphic :rem grafik ausschalten 

390 return :rem weiter im hauptprogramm 


Nun auch zu diesem Programm die Erklärung der einzelnen 
Zeilen: 


160 


180-200 


220 
230 
237 
239 
290 
300 


Festlegen der Startadresse der "Zeichensatzkopie". 
Bilschirm löschen, Farben setzen. 

Frage nach dem gewünschten Zeichen stellen. 
Auf eingabe des Zeichens warten. 


Unterprogramm aufrufen. 
Eine neue Zeile anfangen. 
Zeilen-Schleife. 
Spalten-Schleife. 
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310 Graficursor auf Buchstaben positionieren und 
Punkt testen. 

320 Fals der Punkt nicht gesetzt ist, einen Punkt (.), 
andernfals einen Stern (*) ausgeben. 

330 Zur nächsten Spalte 

340 Zeilenvorschub 

350 Zur nächsten Zeile 

370 Auf Tastendruck warten 

371 RUN ausführen 


Unterprogramm zum Darstellen des gewünschten 
Zeichens in der HiRes-Grafik 


380 Einschalten der Grafik 

390 Schreiben des gewünschten Zeichens an die Posi- 
tien (0,0); entspricht der Adresse 8192 

400 Ausschalten der Grafik 

410 Rückkehr zum Hauptprogramm 


Der Char-Zoomer ist sicherlich so einfach zu verstehen, daß ich 
hier auf eine Bedienungsanleitung verzichten möchte. 


Dieses Programm kopiert den Zeichensatz natürlich nicht richtig, 
sondern wendet einen kleinen Trick an, es stellt das gewünschte 
Zeichen in der HiRes-Grafik dar, die, wie wir noch sehen wer- 
den, vom Aufbau her dem Chargenerator gleicht. Um den Zei- 
chensatz zu kopieren, damit wir ihn anschließend für unsere ei- 
genen Belange modifizieren können, müssen wir erst einmal 
wissen, wo dieser liegt und wohin wir ihn kopieren wollen. 
Frage 1 ist nach einem kurzen Blick ins C16-Handbuch beant- 
wortet. Auf der Seite 228 finden wir eine grobe übersicht über 
das C16 ROM. Wir entdecken die Character-Tabelle 
(Zeichensatz) an der Adresse $D000 oder 53248. Dieser erstreckt 
sich bis zur Adresse $D400 oder 54272. 


Nun zur Frage 2: Um diese Frage zu beantworten, müssen wir 
ein wenig überlegen. Der Zeichensatz besteht aus 128 Zeichen. 
An dieser Stelle ein Hinweis: die reversen Zeichen erzeugt der 
Videocontroller selber. Das sind die Zeichen die die Bild- 
schirmcodes von 128-255 tragen. Jedes dieser 128 Zeichen 
braucht 64 Bit, also 8 Byte. 128*8 ergibt 1024. Wir brauchen 
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also 1 KByte Speicherplatz für die Zeichensatzkopie. Aus 
Adressierungsgründen kann dieser Zeichensatz nur alle 1024 
Bytes im Speicher liegen. Mögliche Adressen sind also: 


0- 1023 (VORSICHT, dient als Systemspeicher) 

1024 - 2047 (VORSICHT, dient ebenfals als Systemspeicher) 

2048 - 3071 (VORSICHT, enthält Farbwerte des Textschirm 

3072 - 4095 (VORSICHT, Textschirm) 

4096 - 5119  (BASICSPEICHER) 

5120 - 6143 _(BASICSPEICHER) 

6144 - 7167 (BASIC- oder HELLIGKEITSSPEICHER der 
Grafik) 

7168 - 8191 (BASIC- oder FARBSPEICHER der Grafik) 

8192 - 9215 (BASIC- oder GRAFIKSPEICHER) 

9216 - 10239 (BASIC- oder GRAFIKSPEICHER) 

10240 - 11263 (BASIC- oder GRAFIKSPEICHER) 

11264 - 12287 (BASIC- oder GRAFIKSPEICHER) 

12288 - 13311 (BASIC- oder GRAFIKSPEICHER) 

13312 - 14335 (BASIC- oder GRAFIKSPEICHER) 

14336 - 15359 (BASIC- oder GRAFIKSPEICHER) 

15360 - 16383 (BASIC- oder GRAFIKSPEICHER) 


(Sollten Sie glücklicher Besitzer eines Plus/4, oder eines erwei- 
terten C16 sein, so reicht diese Tabelle natürlich noch weiter.) 


Wie Sie sehen, müssen Sie bei den oben genannten Adressen ei- 
nige Einschränkungen in Kauf nehmen. Da aber wohl niemand 
Hochauflösende Grafik und selbstdefinierten Zeichensatz in ei- 
nem Programm zusammen gebraucht, bietet sich der Bereich von 
15360 bis 16383 für die Zeichensatzkopie an. 

Nun aber endlich zum Zeichensatzkopierprogramm : 


10 for i= O0 to 1023 :rem 1024 Werte kopieren 
20 : alt=53248+j :rem Start des Zeichensatzes im ROM 
30 : neu=15360+i :rem Start der Zeichensatzkopie 
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40 : poke neu,peek(alt):rem kopieren 
50 next i :Schleife schließen 


Doch schon wieder erscheint ein Problem. 


1. Dieses Programm dauert zu lange (18 sec.) 

2: Dieses Programm funktioniert nicht, da der CI16 und 
Plus/4 durch ein sog. BANK-SWITCHING beim PEEK- 
Befehl immer auf das RAM zugreift. Das heißt, daß der 
Chargenerator sozusagen 'ausgeblendet’ wird. 


Wir müssen also wohl oder übel auf die Maschinensprache zu- 
greifen. 


Hier zuerst das Assemblerlisting für die Kenner unter Ihnen: 


2.2.3.1 Eine Charcopyroutine in Assembler 


10: 0332 *= $0332 ;routine in den 
‚kassettenpuffer 

20: 0332 .opt pl,oo ;in den speicher assemblieren 

223 0332 .sym 2 

233 0332 .tit "char-copy" 

30: > 

40: SERENRNNERWEEERNRTEEHERRERERNUERRERTERER 

50: sek rk 

60: zeit char-copy routine v1.0 “un 

70: ser r% 

80: sehr copy rom ==> ram (15360) *** 

90: SERREEFRTERREER LET TERERERTERRTRERNNNE 

100: : 

130: dOOoO char = $d000 ;start char-generator 

140:  3c00 neu = 15360 ;neuer speicherbereich des 
;char-generators 

150: 0778 steuer = $7f8 ‚umschalten rom/ram 

160: 00f6 merk 1 = $f6 ‚zeiger auf zeichen 

170: 00f7 merk2 = $f7 ‚zeiger auf zeichen 

180: 00f8 merk3 = $f8 ;zeiger auf zeichen 
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190: 00f9 merk4 = $f9 ;‚zeiger auf zeichen 
200: s 

210: FERERT programm AAcK% 

220: 

230: 0332 a2 00 Idx #<char ;startadresse in 
240: 0334 a0 dO ldy #>char ;lo- & hi-byte 

250: 0336 86 f6 stx merk1 ;merken 

260: 0338 84 f7 sty merk2 ;merken 

270: : 

280: 033a a2 00 ldx #<neu ;neu startadresse in 
290: 033c a0 3c ldy #>neu ;lo- & hi-byte 

300: 033e 86 f8 stx merk3 ;merken 

310: 0340 84 f9 sty merk4 ;merken 

320: . 

330: 0342 78 sei ‚interrupt verbieten 
340: 0343 ad f8 07 Ida steuer ;alten wert 

350: 0346 48 | pha ;auf stack legen 
360: 0347 a9 00 Ida #00 ‚auf rom 

370: 0349 8d f8 07 sta steuer ;schalten 

380: , 

390: 034c a2 04 Idx #4 ;schleife 4 mal 

400: 0O34e a0 00 Idy #0 ;y-reg. loeschen 
410: 0350 b1 f6 copy Ida (merk1),y;charrom lesen 

420: 0352 91 f8 sta (merk3),y;und speichern 

430: 0354 c8 iny ;y-reg. erhoehen 
440: 0355 dO f9 bne copy »<>0; dann nach copy 
450: 0357 e6 f7 inc merk2 ;lo-byte erhoehen 
460: 0359 e6 f9 inc merk4  ;lo-byte erhoehen 
470: 035b ca dex »x-reg. erniedriegen 
480: 035c dO f2 bne copy ‚noch nicht 0; dann copy 
490: ’ 

500:  035e 68 pla ‚alter steuerwert vom stack 
510: 035f 8d f8 07 sta steuer ;und zurueckschreiben 
520: 0362 58 cli ;interrupt freigeben 
530: 0363 60 rts ‚zurueck zum basic 
10332-0364 


no errors 
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symboltable: 
copy 0350 merk4 00f9 
merk3 00f8 merk2 00f7 
merk 1 00f6 steuer 07f8 
neu 3c00 char d000 


8 symbols defined 


Und hier nun der BASIC-Lader: 


100 rem KERKRTHTTTTT IT I I 


110 rem 2.2; aa% 
120 rem *** char-copy —n 
130 rem KRR OÖ ie ax%% 
140 rem AA% au% 
150 rem AR ipom-*> ram (15360) TR" 
160 rem kk% Akr% 
170 rem *** (basiclader) wr. 
180 rem KERRKKEKKKHHTTTIT IT I N I TI TA TI TI N I a a 
190 : 

200 input"startadresse";sa 

210 s 

220 if sa =0 then sa=dec('""0332"):rem kassettenpuffer 
230 : 

240 print"data werden gelesen I!" 

250 2 


260 for i= sa to satdec('"'0031") 
270 ::: read a:poke i,a 

280 ::: pr=pr+a 

290 next 

>00, .: 

310 if pr<> 7710 then print"data o.k. aufruf mit sys!";sa 
320 : 

330 print"data error!!!!":end 
340 : 

330: 3 

360 rem **** assembler data **** 
3/0 ; 
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380 data 162,000,160,208,134 ,246,132,247 
390 data 162,000,160,060,134,248,132,249 
400 data 120,173,248,007,072,169,000,141 
410 data 248,007,162,004,160,000,177,246 
420 data 145,248,200,208, 249,230 ,247 ,230 
430 data 249,202,208,242,104,141,248,007 
440 data 088,096,000,000,000,000,000,000 


Wenn Sie den BASIC-Lader nun abgetippt, gespeichert und ge- 
startet haben, sollte der Zeichensatz nun ab der Adresse 15360 
im RAM stehen. Überprüfen Sie dies, indem Sie folgenden Be- 
fehl eingeben: 


GRAPHIC 1,0 


Sıe sehen im unteren Teil des Bildschirms nun die Zeichensatz- 
kopie. Jetzt sollten Sie dem Computer wieder mitteilen, daß er 
den Grafikspeicher als BASIC-Speicher ansehen soll. Die ge- 
schieht mit dem GRAPHIC-CLR-Befehl. 

Bevor Sie sich jedoch daranmachen, ein Programm zu schreiben, 
sollten Sie den Zeichensatz vor dem Überschreiben durch Vari- 
ablen schützen. Dies erledigen diese 3 Befehle: 


POKE 55,246:POKE 56,59:CLR. 


Damit legen Sıe das Ende des BASIC-Speichers nach 15350. 


Nun geht es mit PEEK & POKE dem alten Zeichensatz an den 
Kragen. 


Das erste, was wir nun machen wollen, ist uns eine Skizze des 
neuen Zeichen anzufertigen. Diese Skizze sollte wie folgt ausse- 
hen. 
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BIT 
76543210 :Nummer 


%* “ %* %* 2- 
*“ %* 3 

“ x* “x bh» 
“x “x -5 
*“x% ö 

% “x %* -7 
-B- 


Dieses Zeichen müssen wir jetzt computergerecht zubereiten. 

Das funktioniert wie folgt: Für jeden gesetzten Punkt setzen wir 
ein BIT, für jeden gelöschten Punkt löschen wir ein BIT. Die 
nun erstellten Bitmuster wandeln wir dann in Dezimalzahlen um. 


‚Reihe : 00000000 =0*128 +0*64 +0*32 +0*16 +0*8 +0*4 +0*2 +0*%1 = O0 
„Reihe : 01011010 =0*128 +1*64 +0*32 +1*16 +1*8 +1*4 +0*2 +1*1 = 93 
‚Reihe : 00011000 =0*128 +0*64 +0*32 +1*16 +1*8 +0*4 +0*2 +0*] = 24 
„Reihe : 01100110 =0*128 +1*64 +1*32 +0*16 +0*8 +1*4 +1*2 +0*1 = 102 
„Reihe : 01100110 =0*128 +0*64 +0*32 +1*16 +1*8 +0*4 +0%2 +0*1 = 102 
„Reihe : 00011000 =0*128 +0*64 +0*32 +1*16 +1*8 +0*4 +0*2 +0%] = 24 
„Reihe : 01011010 =0*128 +1*64 +0*32 +1*16 +1*8 +1*4 +0*2 +1*1 = 93 
„Reihe : 00000000 =0*128 +0*64 +0*32 +0*16 +0*8 +0*4 +0*2 +0*1 = 0 


oo oo vr UüRDnDd 


Jetzt sollten wir uns entscheiden, welches Zeichen des alten 
Zeichensatzes verändert werden soll. Ich werde hier den "Pfeil 
nach oben" (*) verändern. Die Zeichensatzkopie liegt ab 15360 
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im Speicher und in der Kode-Tabelle Ihres Handbuches finden 
Sie auf Seite 213 den Poke-K.ode für "*"(30). Da jeder Buchstabe 
8 Bytes belegt, beginnt das alte Bitmuster des "*" ab 15360 + 8 * 
30, also 15600. Endlich können wir ein neues Zeichen definie- 
ren. 


10 for i= 15600 to 15600+7:rem 8 Werte 


2&0 : read a :rem Bitmuster lesen 

>0 : poke i,a rem und !einpoken' 

40 next i :rem schleife schließen 
50 end 


60 rem data fuer das neue Zeichen 
70 data 0, 93, 24,102,102, 24, 93, 0 


Nun ist der große Augenblick gekommen, das neue Zeichen 
sollte beim Druck auf die "*"-Taste erscheinen. Sollte - denn es 
erscheint nicht. Ihr Computer greift immer noch auf den ROM- 
Zeichensatz zurück. Wir müssen dem Rechner erst mitteilen, daß 
wir jetzt gern unseren Zeichensatz benutzt hätten. Dies wie- 
derum erreichen wir durch Ändern zweier Speicherstellen, wel- 
che Register des TED-Videochips sind und die Basisadresse des 
Zeichengenerators enthalten: 


v=65280:pokev+18,peek(v+18) and not 4:poke v+19,15360/256. 


Nun erscheint auch beim Druck auf die "*"-Taste das neue 
Zeichen. 


Anwendungen für einen veränderbaren-Zeichensatz gibt es viele: 


- Eine deutsche Tastatur 

- Die von Druckern bekannte IC-SCHRIFT auf Ihrem C16 und 
Plus/4 

- Und natürlich auch das Erfinden eigener Spielhelden, die 
eventuell auch aus mehreren Zeichen bestehen können. 
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2.2.3.2 Ein komfortabler Chargenerator 


Damit Sie nicht ständig selbst zu Blatt und Stift greifen müssen, 
wenn Sie Ihren persönlichen Zeichensatz kreieren wollen, haben 
wir zu guter letzt noch ein Programm für Sie entwickelt, das es 
Ihnen erlaubt, Ihren eigenen Zeichensatz direkt am Bildschirm 
zu entwerfen. Die Anleitung zu diesem Programm, finden Sie 
dann im Anschluß daran. Doch nun zu unserem Chardesigner: 


10 poke 55,0:poke 56,46:clr:rem zeichensatzkopie schuetzen 
20 gosub 2460:rem maschinenprogramm 

30 sys dec("3000"):sys dec("3000"):rem starten 
40: 

50 i$=chr$(125):h$=chr$(96) 

60 e1$=chr$(176) :e2$=chr$( 174) 

70 e3$=chr$(173):e4$=chr$( 189) 

80 r1$=chr$(117):r2$=chr$( 105) 

90 r3$=chr$(106):r4$=chr$( 107) 

100 fori =1 to 27:f1$=f1$+(h$):next 

110 f2$=left$(f1$,8) 

120 : 

130 senclr:printchr$(142)chr$(8) 

140 colorO0,1:color1,6,4:color4,3,5 

150 : 

160 char1,6,0,r1$+f1$+r2$ 

170 char1,6,1,i$+" char-designer "+H$ 
180 char1,6,2,i$:char1,34,2,1$% 


190 char1,6,3,1$+" c-16 / plus 4 N+1$ 
200 char1,6,4,r3$+f1$+r4$ 

210 : 

220 for i=0to 2 

230: s; char1,1*13,6 ; "feld"+str$(i+1) 


240: s chari,3r13, 8; r1$+f2$+r2$ 
250 :: for t=0 to 7 


260: == chari,7*13. DE TEN nn 2.15 
270 :: nextt 

280 : char! 113,17, r3$+f2$+r4$ 

290 next 


300 : 
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310 chari, 0,7,chr$(18)+"design!" 
320 char1,13,7,"zur zeit" 

330 char1,26,7,"orginal"+chr$(146) 
340 : 

350 for i=7 to O step -1 

360 : char 1,10, 9+i,str$(i) 

370 .:i'char 1,23; 9H1 ;str$S(i) 

380 : char 1,36, 9+i,str$(i) 

390 : char 1, 0+i,18,str$(1) 

400 : char 1,13+i,18,str$(i) 

410 : char 1,26+i,18,str$(i) 

420 next 

430 : 

440 char1,2,20,"aktueller bildschirmcode: 0" 
450 char1,32,19,e1$+h$+e2$ 

460 char1,32,20, i$+"a"+i$ 

470 char1,32,21,e3$+h$+e4$ 

480 clr :rem platz schaffen 

490 x=1:y=1:x1=1:y1l=2:cu=46 


500 : 

510 poke 1319,19:poke 239,1:rem home bei naechster getkey 
anweisung 

520 goto 1810:rem zeichen auslesen 

530 : 

540 getkey a$ 

550 : 


560 : if a$=" "then cu=81:goto 1350 

570 : if a$=chr$(160) then cu=46:goto 1350 
580 : if a$=chr$(157) then 780 :rem c links 
590 : if a$=chr$( 29) then 820 :rem c rechts 
600 : if a$=chr$(145) then 860 :rem c oben 
610 : if a$=chr$( 17) then 900 :rem c unten 
620 : if a$=chr$( 13) then 940 :rem return 
630 : if a$=chr$(147) then 970 :rem clr 

640 : if a$=chr$( 19) then 1030:rem home 


650 : if ag=t2" then 1070:rem kopieren feld 2 
660 : if ag=t3"" then 1100:rem kopieren feld 3 
670 : if a$=!s" then 2130:rem save 
680 : if ag="Ll" then 2220:rem load 


690 : if a$=chr$( 27) then 2000:rem uebernehmen 
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700 : if a$="j" then 1220:rem invertieren 
710 : if a$=!"n" then 1670:rem neues zeichen 
720 : if a$="h" then 1390:rem spiegel hor 
730 : if a$="y" then 1530:rem spiegel ver 
740 : 

750 goto 540 

760 : 

770. rem rn cursor left --+*---- 

780 x=x-1:if x<1 then x=8:goto 860 

790 goto 2360 :rem cursor setzen 

800 : 

810 rem -------- cursor right --*----- 

820 x=x+1:if x>8 then x=1:goto 900 

830 goto 2360 rem cursor setzen 

840 : 

850 rem - +++ ++-- cunsop B ee 

860 y=y-1:if y<1 then y=8 

870 goto 2360 rem cursor setzen 

880 : 

890 rem »+++ cursor down Ars» 

900 y=y+1:if y>8 then y=1 

910 goto 2360 :rem cursor setzen 

920 : 

930 rem -------- return | oÖ4ÖÄOO 

940 x=1:goto 900 

950 : 

9E0D rem --- ++ --- elr / home ii 


970 :for i=1t08 

980 ::for h=1to8 

990 :: chari,h,1r8,9,% 
1000 ::next h 

1010 :next i:cu=46 
1020 : 

1030 x=1:y=1 

1040 goto 2360 

1050 : 

1060: rem +++ -- f.2 kopieren +++ 
1070 x2=13:goto 1120 
1080 : 
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1090 rem -------- t»3 :kopieren. #+++--=+ 
1100 x2=26 

1110 : 

1120 poke 3072+x1+40*(y1+8),cu 

1130 :fort=9 to 16 

1140 ::fori=x2+1 to x2+8 

1150 :: b=peek(3072+i+40*t) 

1160 :: poke 3072+i-x2+40*t,b 

1170 ::next 

1180 :next 

1190 : 

1200 goto 2370 

1210 ; 

1220 rem +++. «- invertieren -------- 
1230 : 

1240 poke 3072+x1+40*(y1+8),cu 

1250 :for i=9t016 

1260 ::for t=1t08 

1270 :: b=(3072+i*40+t) 

1280 :: if peek(b)=46 then poke b,81:else poke b,46 
1290 ::nextt 

1300 :nexti 

1310 ; 

1320 goto 2370 

1330 3 

1340 rem *-----»- punkt s/l + ui 
1350 x1=x:y1=y 

1360 goto 820 

1370 : 

1380 re -------- spiegeln h--------- 
1390 poke 3072+x1+40*(y1+8),cu 

1400 :fori=1 to 4 

1410 ::fort=9 to 16 

1420 :: a=3072+i+40*t 

1430 :: a2=3072+9- i+40*t 

1440 :: b=peek(a):b2=peek(a2) 

1450 :: poke a,b2:pokea2,b 

1460 ::next t 

1470 next i 

1480 cu=peek (3072+x1+40*(y1+8)) 
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1490 : 

1500 goto 2360 

1510 : 

1320 rem »-++-- + spiegeln V em 
1530 poke '3072+x1+40*(y1+8),cu 

1540 :fori=1 to 8 

1550 ::fort=9 to 12 

1560 :: a=3072+1+40*t 

1570 :: a2=3072+1+40*(25-t) 

1580 :: b=peek(a):b2=peek(a2) 

1590 :: poke a,b2:pokea2,b 

1600 ::next t 

1610 :next i 

1620 cu=peek(3072+x1+40*(y1+8)) 

1630 : 

1640 goto 2360 

1650 : 

1660: rem +++ ---— neues zeichen-------- 
1670 color 4,3,5 

1680 char 1,28,20,right$(" "+str$(z),3):poke3905,z 
1690 getkey a$ 

1700 : if a$=chr$(13) then 1810 

1710 : if a$=chr$(43) then z=z+1 

1720 : if a$=chr$(45) then z=z-1 

1730 : if a$=chr$(219)then z=z+10 
1740 : if a$=chr$(221)then z=z-10 
1750 : if z>127 then z=z-128 

1760 : if z<O then z=z+128 

179 : 

1780 goto 1670 

1790 : 

1800 rem +++ +-- vergroessern--"""""--- 
1810 ad=15360 

1820 :for t=0 to7 

1830 ::for i=0 to7 

1840 :: x2=14+i:y2=9+t 

1850 :: b=(peek(ad+z*8+t)and 2-(7-i)) 
1860 :: if b=0 then char 1,x2,y2,".":zelse char1,x2,y2,chr$(113) 
1870 :next:next 

1880 : 
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1890 ad=14336 

1900 :for t=0 to? 

1910 ::for i=0 to? 

1920 :: x2=27+1:y2=9+t 

1930 :: b=(peek(ad+z*8+t)and 2°(7-i)) 

1940 :: if b=0 then char 1,x2,y2,".":else char1,x2,y2,chr$(113) 
1950 :next:next 

1960 color4,1:goto 540 

1970 : 

1980 rem ------- z. uebernehmen---- 

1990 color 4,3,5 

2000 color 4,3,5 

2010 poke 3072+x1+40*(y1+8),cu 

2020 :for t=0to 7:e=0 

2030 ::for i= 7toO step -1 

2040 :: if (peek(3072+i+1+(t+9)*40))=81 then e=e+2”(7-i) 
2050 ::next 

2060 : poke 15360+z*8+t,e 

2070 :next 

2080 : 

2090 color 4,1 

2100 goto 2360 

2110 : 

2120 rem ------ Save ende 

2130 gosub 2310 

2140 scnclr 

2150 print"monitor" 

2160 char1,0,6,"s"+chr$(34)+na$+chr$(34)+"08 3c00 3fff" 
2170 char1,0,9, "x" 

2180 char1,0,11,"goto 50" 

2190 fori=1t04:poke1319+i,13:next:poke1319,19:poke239,5:end 
2200 : 

2210 rem ------ lOoad 2 ee eis 

2220 gosub 2310 

2230 scnclr 

2240 print'monitor 

2250 char1,0,6,"l"+chr$(34 )+na$+chr$ (34) +08" 

2260 char1,0, 9,'x" 

2270 char1,0,11,"goto 50" 

2280 fori=1t0o4:poke1319+i,13:next:poke1319, 19:poke239 ,5:end 
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2290 : 

2300 rem ----- filename -------- 

2310 scnclr 

2320 input"filename";na$ 

2330 return 

2340 : 

2350 rem. ++ cursor setzen ------- 
2360 poke 3072+x1+40*(y1+8),cu 

2370 c = (3072+x+40*(y+8)) 

2380 cu=peek(c) 

2390 poke c,cu or 128 

2400 x1=x:y1=y 

2410 goto 540 

2420 : 

2430 rem ----+--- or nennen nn nenn nn 
2440 rem ---- char-copy routine ------- 
2450 rem -*-------unnn nn en nn nn nn nn 
2460 : 

2470 restore 2530 

2480 for i=dec("3000") to dec("302b") 
2490 : read a$:poke i,dec(a$) 

2500 next 

2510 return 

2520 : 

2530 data 78,a0,00,b69,00,d0,99,00,38 
2540 data 99,00,3c,b69,00,d1,99,00,39 
2550 data 99,00,3d,b9,00,d2,99,00,3a 
2560 data 99,00,3e,b9,00,d3,99,00,3b 
2570 data 99,00,3f,88,d0,d9,58,60,00 


Hier nun wieder die Dokumentation des vorgestellten Program- 
mes: 


10 Schützen des Zeichensatzkopierprogrammes und 
der beiden Zeichensatzkopien | 

20 Assembler-Routine einlesen 

30 Und starten 


50-110 Festlegen einiger Strings für den Bildschirmaufbau 
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130 

140 
160-470 
480 

490 

510 

520 

540 
560-750 
770-790 
810-830 
850-870 
890-910 
930-950 
960-1040 
1030-1040 
1070 

1100 
1120-1180 
1240-1320 
1350,1360 
1390-1500 
1500-1640 
1660-1780 
1800-1960 
1990-2100 
2120-2190 


Löschen des Bildschirm; 
schrift; diese fixieren 
Farben setzen 

Bildschirm aufbauen 
Platz schaffen durch löschen aller bisher definier- 
ten Variablen (Strings) 

Festlegen der Variablen für die Cursorsteuerung 
HOME in den Tastatur-Puffer, wird dann bei der 
nächsten GETKEY Anweisung ausgeführt 
Unterprogramm zum Auslesen der Zeichen aufru- 
fen 

Auf Befehl Warten 

Auswertung der gedrückten Taste 

Cursor nach links 

Cursor nach rechts 

Cursor nach oben 

Cursor nach unten 

Return ausgeben 

Löschen des Designfeldes 

Cursor in die HOME-Position 

Variablen für Kopierroutine Feld 2 nach Feld I 
Variablen für Kopierroutine Feld 3 nach Feld I 
Eigentliche Felder-Kopierroutine 
Invertierungs-Routine 

Punkt setzen oder Löschen (je nachdem ob in der 
Befehlsauswertungsschleife der Variable CU der 
Wert 81 [setzen] oder 46 [löschen] zugewiesen wor- 
den ist) 

Spiegeln des Designfeldes um die Horizontale 
Spiegeln des Designfeldes um die Vertikale 
Auswahl eines neuen Zeichens 

Auslesen und vergrößern des gewählten Zeichens. 
Einmal aus dem Veränderten Zeichensatz und ein 
zweitesmal aus dem Orginalzeichensatz. 
Übernehmen des erstellten Zeichens durch POKEn 
der BITmuster in die zweite Zeichensatzkopie 
Speichern des zweiten Zeichensatzes durch aufru- 
fen des MONITORS mit Hilfe der Tastaturpuffer- 
methode. 


umschalten auf Groß- 
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2220-2280 


2310-2330 
2360-2410 


2430-2570 


Laden des Zeichensatzes durch aufrufen des Mo- 
nitors mit Hilfe der Tastaturpuffermethode. 
Eingeben des Filenamens für LOAD und SAVE 
Setzen des Cursors durch Invertieren der Cursor- 
position 

Einlesroutine der Char-Copy Routine und As- 
sembler DATA 


Kurz noch ein Wort zur Zeichensatz-Kopierroutine. Diese ist 
etwas anders aufgebaut als die Char-Copy-Routine aus dem 
Grundlagenkapitel. Da der ROM-Zeichensatz zweimal kopiert 
werden muß, andrerseits die Kopierroutine nicht zu lang werden 
sollte (wer will schon gerne 100 nichtssagende DATA abtippen), 
wurde die indirekt indizierte Adressierungsmethode durch eine 
simple X-indizierte Schleife ersetzt. 


- DES IGNER 
f PLUS +4 


91234567 91234567 
AKTUELLER BILDSCHIRMCODE : 
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Auch hier wieder die Programmbeschreibung: 


Nach dem Start des Programmes baut sich zuerst der Bildschirm 
auf und das erste Zeichen (der "Klammeraffe") wird vergrößert 
auf den Bildschirm gebracht. Sollten Sie dabei in einem der bei- 
den Kopierfelder ein Durcheinander entdecken, welches dem 
"Klammeraffen" nicht ähnelt, ıst das Programm nochmals zu 
starten. 


Schließlich schaltet die Rahmenfarbe auf Schwarz, ein Zeichen 
dafür, daß der Computer für weitere Befehle bereit ist. Sie kön- 
nen nun durch Drücken verschiedener Tasten verschiedene 


Funktionen aufrufen. Dies möchte ich hier kurz vorstellen: 


SPACE 


SHIFT-SPACE 


Cursor links 
Cursor rechts 
Cursor oben 
Cursor unten 
RETURN 
SHIFT CLR 
CLR/HOME 


SHIFT + 


SHIFT - 


Setzen eines Punktes 

Löschen eines Punktes 

Cursor nach links 

Cursor nach rechts 

Cursor nach oben 

Cursor nach unten 

Sprung an den Anfang der nächsten Zeile 

Löschen des Designfeldes 

CURSOR in die Home Position 

Kopieren des Zeichens aus Feld 2 

Kopieren des Zeichens aus Feld 3 

Speichern des erstellten Zeichensatzes 

Laden des erstellten Zeichensatzes 

Übernehmen eines erstellten Zeichens 

Invertieren des Designfeldes 

Spiegeln des Designfeldes um die Horizontale Achse 

Spiegeln des Designfeldes um die Vertikale Achse 

Zwischenmenü zum Ändern eines neuen Zeichens. 

Erhöhen des Zeichencodes um 1 (nur wenn vorher N gedrückt 
war). | 
Erniedrigen des Zeichencodes um 1 (nur wenn vorher N gedrückt 
war). 

Erhöhen des Zeichencodes um 10 (nur wenn vorher N gedrückt 
war). 

Ernidriegen ds Zeichencodes um 10 (nur wenn vorher N gedrückt 
war). 
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RETURN Übernahme des neue Zeichencodes (nur wenn vorher N gedrückt 
war). 


Bei der Ausführung der meisten dieser Befehle schaltet der 
Computer die Rahmenfarbe auf Rot um. Sie müssen dann war- 
ten, bis der Computer wieder Schwarz als Rahmenfarbe ausgibt. 


Danach können Sie das Zeichen verändern oder mittels der ESC- 
Taste übernehmen. Das kreierte Zeichen wird nun in den Zei- 
chensatz übernommen. Durch Druck auf die N-Taste besteht die 
Möglichkeit, ein anderes Zeichen zu verändern. Auswählen kön- 
nen Sie dieses Zeichen mit + , - ,„SHIFT + , SHIFT -. Wenn Sie 
sich also für das Fragezeichen entschieden haben (Code 63) kön- 
nen Sie dieses Zeichen dann durch Drücken von RETURN in 
die Kopierfelder bringen. Alle Änderungen beziehen sich dann 
auf das Fragezeichen, dieses wird also durch Ihr neues Zeichen 
beim Drücken von ESC überschrieben. 


Die weiteren Befehle erklären sich von selbst, auf sie möchte ich 
hier nicht weiter eingehen. Probieren Sie einfach alles aus. Und 
zur Not gibt es ja immer noch den Resetknopf... 


Wollen Sie den geänderten Zeichensatz dann in Ihren Program- 
men verwenden, müssen Sie diesen entweder mit 


LOAD"Name",8,1 bzw. LOAD"Name",1,1 
oder im MONITOR mit 
L"Name"08 bzw. L"Name"0l 
einladen. Wie Sie auf den neuen Zeichensatz umschalten haben 


Sie sicherlich schon auf den vorherigen Seiten gelesen. Noch 
einmal zur Erinnerung: 
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POKE 65298,PEEK(65298) AND NOT 4:POKE 65299, 15360/256 


Sie sollten allerdings niemals bei verlegtem Zeichensatz auf die 
hochauflösende Grafik schalten, da dieses den TED (Videchip 
des C 16 und Plus/4) zum Absturz bringt. Dieses macht sich da- 
durch bemerkbar, daß beim Umschalten auf den Textbildschirm 
eine fernsehähnliche Bildstörung vorliegt. Abgeschaltet wird 
diese durch Eingabe der oben erwähnten POKESs. 


Nun wünsche ich Ihnen viel Spaß beim Erschaffen neuer Zei- 
chensätze. 


2.2.4 Die hochauflösende Grafik 


Zum Schluß sollten wir noch über die letzte Art der Bildschirm- 
darstellung reden, über die hochauflösende Grafik. Hier wird 
das ganze etwas kompliziert, weil ja nun nicht mehr ganze Zei- 
chen auf einmal, sonder nur einzelne Punkte dargestellt werden. 


Nun, auch dieses Problem hat man ziemlich rationell gelöst, 
denn bei dieser Art der Grafikdarstellung werden jeweils 8 Pixel 
zu einem Byte zusammengefaßt. Ein Schaubild soll die genaue 
Speichereinteilung des Video-RAM in der hochauflösenden 
Grafik verdeutlichen: 


Reihe 1 76543210 76543210 76543210 76543210 ... 
Reihe 2 76543210 76543210 76543210 76543210 ... 
Reihe 3 76543210 76543210 76543210 76543210 ... 
Reihe 4 76543210 76543210 76543210 76543210 ... 
Zeile 1 Reihe 5 76543210 76543210 76543210 76543210 ... 
Reihe 6 76543210 76543210 76543210 76543210 ... 
Reihe 7 76543210 76543210 76543210 76543210 ... 
Reihe 8 76543210 76543210 76543210 76543210 ... 
Reihe 1 76543210 76543210 76543210 76543210 ... 
Reihe 2 76543210 76543210 76543210 76543210 ... 
Reihe 3_ 76543210 76543210 76543210 76543210 ... 
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Reihe 4 76543210 76543210 76543210 76543210 ... 
Zeile 2 Reihe 5 76543210 76543210 76543210 76543210 ... 
Reihe 6 76543210 76543210 76543210 76543210 ... 
Reihe 7 76543210 76543210 76543210 76543210 ... 
Reihe 8 76543210 76543210 76543210 76543210 ... 


Während im vorhergehenden Schaubild gezeigt wurde, wie die 
einzelnen Punkte bitweise abgelegt wurde, verdeutlichts das 
nächste Schaubild, wie die einzelnen Bytes hintereinander ange- 
ordnet sind: 


Spalte: O0 1 2 3 39 
8192:  8200:11.8207- 8245: 2 040044 8504 
8193 8201 8208 8216 Lean 8505 
8194 8202 8209 8217 nununennn 8506 
315 U BIO IE un 8507 

zeile 1 819% 8203 8211 8219 auuiunnn bis 8508 
8197: - 8204: 18212; 78220 7 „wiss. acen 8509 
8198178205 BIENEN tar 8510 
8199 8206 8214178222 ccnan ea 8511 
8312: 18320: 8928118338 1 ad nad au 8824 
58513 B521 B529ı 8587 san 8825 
8514 8522 8530 8538 .uınenene 8826 
355 8523 85531 8539 onen 8827 

zeile 2 8516 8524 8532 8540 „nunenunen bis 8828 
BEE 2525 83331 BEA ie nee 8829 
8518: 7 85264 B534. 8542 na eu 8830 
8519: 8527:1158535 8543 wuruhrass 8831 

Zeile 3 8832 - 9151 

Zeile 4 

Zeile 5 

Zeile 6 
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Zeile 25 15872 - 16383 


Ziel ist es nun, eine gute Methode zu finden, dem Computer zu 
sagen, an welchen Stellen er welche Figuren setzen soll. Nun, 
verwenden wir doch die uns schon bekannte Art, über ein Ko- 
ordinatensystem dessen Einteilung auf der X-Achse von O bis 
319, auf der Y-Achse von 0 bis 199 reicht. Jedoch, einfach ist 
eine solche Umrechnung nicht - aber zu schaffen. Wir gehen 
dabei wie folgt vor: 


Zunächst einmal ermitteln wir die Zeilenadresse, also die 
Adresse der Zeile (0-25), in dem unserer Punkt liegt. Das kön- 
nen wir dadurch bewerkstelligen, daß wir die Y-Koordinate 
durch 8 teilen, denn wir haben ja schon in den Schaubildern 
gesehen, daß eine Zeile jeweils aus einer Aneinanderreihung von 
8er-Päckchen besteht. Wir schreiben also: 


zeile=int(y/8) 


Der Vorkommateil des Ergebnisses gibt nun die Zeile an, wäh- 
rend über den Nachkommateil (wie, sehen wir später) die Reihe 
innerhalb einer Zeile bestimmt werden kann. 

Da jede Zeile nun aus 40 nebeneinanderliegenden Achter- 
Päckchen besteht, müssen wir das Ergebnis des oben stehenden 
Ausdrucks noch einmal 40*8 (= mal 320) nehmen: 


zeile=int(y/8)*320 
Der Divisionsrest, das entspräche den unteren drei Bits des Y- 
Wertes, gibt nun die Reihe innerhalb der Zeile an und muß 


dann natürlich auch noch zu dem oberen Ausdruck hinzuaddiert 
werden: | 


zeile=int(y/8)*320+(y and 7) 
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Nun müssen wir nur noch herausfinden, welches Byte wir in der 
schon ermittelten Zeile ansprechen müssen, und anschließend 
noch die Bitnummer in diesem Byte errechnen: 


bytenr=int(x/8)*8 

bitnummer=7-(x and 7) 
Um also einen Punkt mit unserem Verfahren an die Stelle 130 
und 70 zu setzen, müssen wir folgendes Programm ausführen. 


Zur Kontrolle wird der von gesetzte Punkt von einem BASIC- 
Befehl, dem Draw-Befehl wieder gelöscht: 


100 rem KK HH TH TS DS DS DD De De > De ee a ca a a a a a a a 


110 rem *** punkt -demo wur 

120 rem KERO2DO?3 ss eneinnnnn—e vr% 

130 rem WRRKKHEH KT TI TG DT DS De De oe ce a a a a a ah ah ah a a a 

140 : 

150 graphic 1,1 :rem grafik einschalten & loeschen 
160 x=130:y=70 srem x und y Koordinaten 


170 adr=8192+int(y/8)*320+(y and 7)+(int(x/8)*8) 
180 bit=7-(x and 7) 


190 a=peek(adr) :rem wert auslesen 

200 poke adr,a or bit :rem mit neuem punkt verknuepfen 
210 : 

220 getkey a$ :rem auf taste warten 


230 draw 0,x,y :rem punkt loeschen 
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3. Anwendungen der Grafikprogrammierung 
3.1 Computer Aided Design 


3.1.1 "Mini-Painter" für C16, C116 und Plus/4 


Als erstes wollen wir in die wohl einfachste Form von CAD - 
Programmen Einblick nehmen, in die Layout-Programme. Dies 
sind Programme, welche es erlauben, einfache kleine Zeichnun- 
gen auf dem Bildschirm zu entwerfen und anschließend eine 
Hardcopy davon anzufertigen. Anwendungsbeispiele für diese 
Programme gibt es massenhaft - um ein solches Beispiel zu fin- 
den, brauchen wir gar nicht weit zu schauen: Ihr Grafikbuch 
selbst ist das beste Beispiel dafür, denn sämtliche Abbildungen, 
die Sie in diesem Buch finden, sind mit einem solchem Pro- 
gramm hergestellt worden. Um Ihnen auch die Möglichkeit zu 
geben, in den Genuß eines solchen Programms zu kommen, ha- 
ben wir nun im folgenden ein solches Programm für den C16, 
C116 und Plus/4 abgedruckt. Zugegeben, dieses Programm er- 
reicht lange nicht den Komfort, den Sie vielleicht von den 
großen 16- und 32-Bit-Rechnern kennen, aber vielleicht haben 
Sie selbst einmal Lust, ein solches, viel besseres Programm für 
den C16 zu programmieren? 


Doch kommen wir nun zu dem Listing unseres Layout-Pro- 
gramms mit der daran anschließenden Erklärung der einzelnen 
Befehle: 


10 vom en 
110 rem --* Bee 
120 rem -** mini-painter m 
130 rem -** c16, c116, plus/4 s%. 
140 rem «++ Oo ern RN 
150 rem -** (min. 32k) Mes 
160 rem -** Rn 
170 rem -**  (kL/07/86) RN 


180 rem - -* *.. 
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bem Sans en anne ea ee nee 


200 : 


210 
box 
220 


data " draw "," line "," circle "," disk "," rec 1", 
u 


data " paint ","floppy " 


230 : 


240 
250 
260 
270 
280 
290 
300 


color 0,1:color 4,1:color 1,5,3 

scnelr 

print ">>> mini-painter c-16/c-116 plus 4 <<<!" 
print ">>> written '86 by klaus loeffelmann «<«! 
print "!-------oon-on nun nennen nennen nn nenn u 
graphic 1,1:graphic 0:s=3 

for x=1 to 8:read t$(x):char ‚15,4+x*2,t$(x):next 


310 : 


320 


x=1:char ‚15,6,chr$(18)+t$(x)+chr$(18+128) 


330, 
340: 


350 
360 
370 
380 


er$=chr$(29) : rem cursor nach rechts 
cl$=chr$(157) : rem cursor nach links 
cd$=chr$(17) : rem cursor nach unten 
cu$=chr$(145) : rem cursor nach oben 


39 : 


400 
410 
400 
420 
430 
440 
450 
460 


getkey a$ 
if a$<>cd$ and a$<>cu$ and a$<>chr$(13) and a$<>chr$(27) then 


if a$=chr$(27) then gosub 540: f=1 

if f=1 and m=1 then run . 
if f=1 and m=0 then f=0:goto 400 

char ‚15,4+x*2,t$(x) 

if a$=chr$(13) then on x goto 630,1150,1320,1400,1500,1590, 


1700, 1750 


470 
480 
490 
500 
510 
>20 


530 : 


540 


if a$=cd$ then x=x+1 

if a$=cu$ then x=x-1 

if x<1 then x=8 

if x>8 then x=1 

char „15,4+x*2,chr$(18)+t$(x)+chr$(18+128) 
goto 400 


rem --- sicherheitsabfrage 


550 % 
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560 char ‚5,24,"sind sie sicher ? !+chr$(18)+"j"+chr$(18+128)+" , 
n":m=1 
570 getkey a$ 

580 if a$=chr$(13) then char ,5,24," a: 


return 


590 if a$=cr$ then char ,24,24,"j „ "+chr$(18)+"n"+chr$(18+128): 


m=0 
600 
m=1 
610 


630 


640 : 
graphic 1 


650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 


900 


if a$=cl$ then char ‚24,24 ,chr$(18)+" j"+chr$(18+128)+" , ni: 


goto 570 
620 : 


rem --- draw 


x=160:y=100:locate x,y 

xa=x:ya=y:locate xX,Yy 

if rdot(2)=1 then ps=1:draw O,x,y:else ps=O:draw 1,X,Y 
get a$:if a$=chr$(27) then draw ps,xa,ya:goto 1240 

if a$=cr$ then j=3 


if 
if 
if 
if 
if 


a$=cl$ then j=7 
a$=" " then j=0:ff=(ff ori)andnot(ffand]) 
a$=cu$ then j=1 
a$=cd$ then j=5 
a$<>"H then 770 


j=zjoy(2):if j>127 then j=j-128:ff=(ff ori)andnot(ffand1) 


if 
if 
if 
if 
if 
if 
if 
if 
if 


j=0 
J=1 
J=2 
j=3 
j=4 
J=5 
j=6 
j=7 
j=8 


and ff<>1 then 690 
then y=y-s 

then y=y-s:x=x+s 
then x=x+s 

then y=zy+s:x=x+s 
then y=y+s 

then y=y+ts:x=x-s 
then x=x-s 

then x=x-s:y=y-s 


draw ps,xa,ya 


if ff=1 then draw 1,x,y to xa,ya 


goto 670 
890 : 


rem --- get dotposition 
910 : 
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920 xa=sx:ya=y:locate x,y 

930 if rdot(2)=1 then ps=1:draw 0O,x,y:else ps=0:draw 1,%,y 
940 get a$ 

950 if a$=chr$(27) then draw ps,xa,ya:return 
960 if a$=cr$ then j=3 

970 if a$=cl$ then j=7 

980 if a$=" " then draw ps,xa,ya:return 
990 if a$=cu$ then j=1 

1000 if a$=cd$ then j=5 

1010 if a$<>"" then 1030 

1020 j=joyc2):if j=128 then draw ps,xa,ya:return 
1030 if j=0 then 940 

1040 if j=1 then y=y-s 

1050 if j=2 then y=y-s:ıx=xt+s 

1060 if j=3 then x=x+s 

1070 if j=4 then y=sy+ts:x=x+s 

1080 if j=5 then y=y+s 

1090 if j=6 then y=y+s:x=x-s 

1100 if j=7 then x=x-s 

1110 if j=8 then x=x-s:y=y-s 

1120 draw ps,xa,ya 

1130 goto 920 

1140 : 

1150 rem --- linie 

1160 : 

1170 graphic 1:x=160:y=100 

1180 gosub 920:if a$=chr$(27) then 1240 
1190 draw ‚„X,Yy:XZ=X:yz=y 

1200 gosub 920:if a$=chr$(27) then 1240 
1210 draw ‚xz,yz to x,y 

1220 goto 1180 

1230 : 

1240 rem --- nach einem ruecksprung 

1250 : 

1260 graphic 0:x=1 

1270 char ,15,6,chr$(18)+t$(x)+chr$(18+128) 
1280 goto 400 

1290 : 

1300 rem --- kreis 

1310 : 
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1320 graphic 1:x=160:y=100 

1330 gosub 920:if a$=chr$(27) then 1240 
1340 draw ‚x,Yy:Xz=xX:yz=y 

1350 gosub 920:if a$=chr$(27) then 1240 
1360 r=xz-x:if r<O then r=-r j 
1370 circle ‚xz,yz,r:draw 0,xz,yz 

1380 goto 1330 

1390 ; 

1400 rem --- ausgefuellter kreis (disk) 
1410 : 

1420 graphic 1:x=160:y=100 

1430 gosub 920:if a$=chr$(27) then 1240 
1440 draw ‚„X,Yy:Xxz=X:yz=y 

1450 gosub 920:if a$=chr$(27) then 1240 
1460 r=xz-x:if r<O then r=-r 

1470 circle ‚xz,yz,r:draw O,xz,yz:paint ‚xz,yz 
1480 goto 1430 

1490 : 

1500 rem --- rechteck 

1310 : 

1520 graphic 1:x=160:y=100 

1530 gosub 920:if a$=chr$(27) then 1240 
1540 draw ‚x,Y!xz=x:yz=y 

1550 gosub 920:if a$=chr$(27) then 1240 
1560 box ‚x2,yZ,X,Y 

1570 goto 1530 

1580 : 

1590 rem --- ausgefuelltes rechteck 
1600 : 

1610 graphic 1:x=160:y=100 

1620 gosub 920:if a$=chr$(27) then 1240 
1630 draw ‚„x,Y:Xz=xX:yz=y 

1640 gosub 920:if a$=chr$(27) then 1240 
1650 box ‚x2,yZ2,X,Y,0,1 

1660 goto 1620 

1670 : 

1680 rem --- flaechen ausfuellen 

1690 : 

1700 graphic 1:x=160:y=100 

1710 gosub 920:if a$=chr$(27) then 1240 
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1720 paint ‚x,y 

1730 goto 1710 

1740 : 

1750 rem --- floppy-operationen 
1760 : i 

1770 scnelr 

1780 print "1....laden!! 


1790 
1800 


print "2....speichern" 
print "3....ende" 


1810 : 


1820 


print:print:print "bitte floppyoperationen nur mit dem" 


1830 print "zusatzprogramm aus kapitel 5.1 benutzen!" 
1840 : 

1850 getkey a$ 

1860 : 

1870 on val(a$) goto 1900,1970,1140 
1880 goto 1850 

1890 : 

1900 rem --- bild laden 

10 x 

1920 scnclr 

1930 input "name des bildes:";a$ 
1940 open 1,8,0,3% 

1950 sys 1539,1:goto 1240 

1960 : 

1970 rem --- bild speichern 

1980 : 

1990 scncelr 

2000 input "name des bildes:";a$ 


2010 
2020 


open 1,8,1,3% 
sys 1536,1:goto 1240 


Und nun die Erklärung des Programms: 


Nach dem Start unseres Mini-Painters erhalten Sie folgenden 
Menü-Aufbau: 
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CTIRCLE 
DISK 


REC 

B0OS 
PAINT 
FLOPPY 





Sie können nun mit den Cursortasten die entsprechende Befehl- 
sauswahl treffen und dann mit einem Return auslösen. Zurück 
kommen Sie jederzeit mit ESCape. Diese Taste hat übrigens im 
Menü eine Sonderfunktion. Mit ihr können Sie nämlich nach 
Druck derselben Ihr gezeichnetes (und hoffentlich schon abge- 
speichertes) Bild löschen. Quittieren Sie die dann noch folgende 
Sicherheitsabfrage mit "JA" (ebenfalls mit den Cursortasten 
auszuwählen), und Ihr schönes Grafikbild wird für immer aus 
den RAMs Ihres Computers verschwinden. 


Kommen wir zu den Befehlserklärungen im einzelnen: 


1. Draw - freihandzeichnen 


Nach Aufruf dieser Funktion befinden Sie sich im Grafikmodus. 
Sie können dort (zugegeben: nach einigem Suchen) den Grafik- 
cursor finden, der Ihnen anzeigt, wo Sie sich auf Ihrem Bild 
befinden. Leider mußten wir den Grafikcursor aus Geschwin- 
digkeitsgründen so klein halten. Nach einem Druck auf die 
Feuertaste des Joysticks befinden Sie sich im Draw-Modus. Ab 
sofort hinterläßt der Grafikcursor beim Zeichnen eine Spur. Ein 
nochmaliger Druck auf die Feuertaste bringt Sie wieder in den 
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Normalmodus. Durch die ESC-Taste gelangen Sie, wie auch bei 
allen anderen Grafikfunktionen, wieder ins Menü. 


2. Line - Zeichnen von Linien 


Diese Funktion dient nun zum Zeichnen von Linien. Zuerst be- 
stimmen Sie mit dem Joystick die Anfangsposition der Linie und 
bestätigen diese mit einem Tastendruck. Anschließend verfahren 
Sie genauso mit dem Endpunkt. 


2, Circle - Zeichnen von Kreisen 


Hiermit haben Sie nun die Möglichkeit, Kreise auf den Bild- 
schirm zu zeichnen. Wählen Sie zuerst, genau so wie bei der Li- 
nien-Funktion, den Mittelpunkt Ihres Kreises aus. Anschließend 
müssen Sie, ebenfalls durch die nun schon bekannte Technik, 
den Radius Ihres Kreises wählen. Der Kreis wird nun mit den 
vorgegebenen Parametern gezeichnet. 


4. Disk - Zeichnen von gefüllten Kreisen 


Diese Funktion entspricht weitgehend der vorherigen. Sie un- 
terscheidet sich nur in der Tatsache, daß sie anschließend den 
Kreis noch ausfüllt. 


5, Rec - Zeichnen von Rechtecken 


Um Rechtecke auf den Bildschirm zu zeichnen, können Sie sich 
dieser Funktion bedienen. Zuerst bestimmen Sie den Eckpunkt 
der linken oberen, anschließend den Eckpunkt der linken, un- 
teren Ecke. 
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6. Box - Zeichnen von gefüllten Rechtecken 


Diese Funktion verhält sich äquivalent zur vorherigen, nur daß 
durch diese Funktion ausgefüllte Rechtecke gezeichnet werden. 


7. Paint - Ausfüllen beliebiger Flächen 


Diese, schließlich letzte, Grafikfunktion ermöglicht das Ausfül- 
len beliebiger Flächen. Positionieren Sie dazu den Grafikcursor 
irgendwo im Inneren der Fläche und betätigen anschließend den 
Feuerknopf. Die Fläche (die wirklich lückenlos umschlossen sein 
muß) wird nun ausgefüllt. 


8. Floppy - Diskoperationen 


Um Ihre Grafiken später noch weiter verwenden zu können, 
gelangen Sie durch diesen Menüpunkt in das Disketten-Unter- 
menü. Hier haben Sie nun die Möglichkeit, Disketten zu laden 
und abzuspeichern. Achtung! Grundlagen hierfür sind jedoch 
unsere Routinen zum Speichern und Laden der Grafik aus dem 
I/O-Kaanpitel. 


3.1.2 Konstruktionsprogramme 


Bestimmt standen auch Sie schon einmal vor dem Problem, ir- 
gendeine technische Zeichnung anzufertigen. Sie wollten nun 
Ihren Computer mit seiner herrlichen Grafik für die Aufgabe 
einsetzen. Doch schon bald haben Sie bestimmt gemerkt, daß 
dem Commodore 16 irgendwie bestimmte Voraussetzungen feh- 
len, um diese Aufgabe zufriedenstellend zu lösen. 


An dieser Stelle möchten wir nun an Sie appellieren, sich einmal 
mit dem "Computer Aided Design" (computerunterstütztes Kon- 
struieren) zu beschäftigen. 


Die Hauptaufgabe eines solchen CAD-Systems besteht darin, ein 
bestimmtes Teil mit Hilfe des Computers auf dem Bildschirm zu 
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konstruieren und später dann auf einem Drucker oder Plotter 
ausgeben zu lassen. Dabei arbeitet der Computer natürlich um 
ein Vielfaches schneller, als es ein Mensch jemals schaffen 
könnte. 


3.1.2.1 CADOMAT Plus/4 


Stellen wir uns also der Aufgabe, ebenfalls für unser Com- 
putersystem ein solches Wunderwerk des Programmierens zu 
schaffen! 


In unserem Falle ist das eigentliche Problem die Kommunikation 
mit dem Rechner. Wir müssen dem Rechner natürlich auf ir- 
gendeine Weise mitteilen, an welcher Stelle wir welches Teil 
positioniert haben möchten. Da bestehen für uns, die wir ja be- 
stimmt nicht Unsummen für irgendwelche komplizierten Einga- 
begeräte ausgeben möchten, leider nicht so viele Möglichkeiten. 


Die erste Möglichkeit wäre der Lightpen, der jedoch die Nach- 
teile hat, daß er 1. nicht sehr verbreitet ist und 2. zu ungenau 
arbeitet. 


Zweite Möglichkeit wäre ein Joystick, so, wie wir es bei unse- 
rem Mini-Painter kennengelernt haben, mit dem wir jedoch auf 
die Dauer nicht sehr rentabel arbeiten können, weil ein solcher 
Joystick viel zu langsam ist. 


Die dritte Möglichkeit wäre ein sogenanntes Grafiktablett, das 
für zweidimensionale Zeichnungen bestimmt am allerbesten ge- 
eignet ist. Kommen wir jedoch einmal zu dreidimensionalen 
Funktionen, so fehlt uns dann die Möglichkeit, die Raumkkoor- 
dinaten einzelner Objekte einzuzeichnen. 


Bliebe uns als letzte Möglichkeit nur noch die Tastatur, die zwar 
den Nachteil hat, daß es mitunter eine ganze Zeit braucht, bis 
man eine geometrische Grundfigur im Bildschirm positioniert 
hat, jedoch hat sie den Vorteil, daß jedermann über sie verfügt 
und man mit ihr auch Raumkoordinaten und andere Parameter, 
wie zum Beispiel den Drehwinkel eines Gebildes, angeben kann. 


Das Grafikbuch zum C16, C116 und Plus/4 143 


3.1.2.2 Einteilung in verschiedene Ebenen 


Das nächste, eigentlich nicht grafisch orientierte Problem ist die 
Einteilung in verschiedene Ebenen. Dazu muß zunächst einmal 
der Begriff "Ebene" geklärt werden. In bezug auf CAD ist eine 
Ebene nichts anderes als ein Teil der Gesamtfigur, die wir er- 
stellen wollen. Sie können sıch den Begriff "Ebene" am besten 
vorstellen, wenn Sie ihn mit einer Klarsichtfolie vergleichen, auf 
der nur ein einziges Stück der Gesamtfigur zu sehen ist. Legt 
man nun mehrere solcher Einzelfiguren übereinander, so ergibt 
sich aus diesen die Gesamtfigur. 


Große CAD-Systeme haben nun den Vorteil, über sehr viel 
mehr Speicherplatz zu verfügen, als wir ihn zur Verfügung ha- 
ben. Sie können einen einzigen Teil, ähnlich wie unsere Shapes, 
die jeweils einzeln berechnet werden, zwischenspeichern, und 
brauchen bei Bedarf diese nur noch in das Gesamtbild zu ko- 
pieren. 


Wir haben, wie schon gesagt, wegen akutem Speicherplatzmangel 
diese Möglichkeit nicht und müssen uns deswegen etwas anderes 
einfallen lassen. 


Eine Möglichkeit wäre, bei Bedarf jeweils die gesamte Grafik 
neu zeichnen zu lassen. Damit wäre unser CAD-System natürlich 
nicht sonderlich schnell, aber wir hätten auf der anderen Seite 
eine fast beliebige Menge Platz für unsere einzelnen Ebenen. 


Wenn wir nun einen "Grafikablauf", also eine Zeichnung, anfer- 
tigen lassen, so machen wir im Prinzip nichts anderes, als eine 
Folge von untergeordneten Zeichnungen zu bestimmen. Auch 
hierzu wieder ein Vergleich, es ist dies das normale BASIC, oder 
besser, der BASIC-Interpreter. Dieser macht auch nichts an- 
deres, als aufgrund mehrerer Teilinformationen das eigentliche 
große Programm auszuführen. 


Wir müssen natürlich jetzt auch die Möglichkeit haben, Teile aus 
dem Gesamt-Zeichenablauf herauszunehmen. 
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Nun würde sich am besten ein Array als Programmspeicher für 
unser CAD-System eignen, weil dieser vom BASIC her am ein- 
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fachsten zu bearbeiten ist. 


In diesem Array ist auch das Einfügen oder Löschen von Zei- 


chenschritten nicht mehr sonderlich schwierig. 


Wir haben für Sie nun ein kleines CAD-System erarbeitet, des- 
sen Funktionsweise wir Ihnen nun nach und nach vorstellen 
möchten: 


3.1.2.3 Das Menü 


Zunächst geht es also um das Erstellen eines Gesamt-Menüs, mit 


dem wir später alle Unterfunktionen aufrufen können: 


100 rem La.2.2.2.202. 2.202.202 020202 02020202 20202 202720202 2 202020207 

110 rem Ak% ak 

120 rem *** caddimat wer 

130 rem u ee en ai% 

140 rem *** (min. 32 K) Er 

150 rem KK HN DD DD De a a a ha a a a a a ah a ı 

160 : 

170 dim cm(60,10),p(8) : rem befehlsarrays vorbereiten 
180 : 

190 rem *** anzahl der parameter festlegen *** 

200 : 

210 p(1)=2 : p(2)=4 : p(3)=8 

215 print chr$(27)+"m'"';:rem scrollen verhindern 

220 p(4)=6 : p(5)=2 : p(6)=4 

230 p(7)=6 : p(8)=2 

240 : 

270 color 0,1 : rem hintergrundfarbe bestimmen 
280 color 1,6 : rem zeichen farbe bestimmen 
290 color 4,1 : rem rahmenfarbe bestimen 
300 : 

310 graphic 1,1 : rem grafik loeschen 


sau : 
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330 rem KARTE TI DI TS De a a a ah a a a a h a ah a 
340 rem *** erstellen der zeichnung **** 
350 rem KERKKAKHT IT TI TI N TA TI I a a a a a a a a a ı 
360 : 
380 graphic 0 
390 print chr$(19)+chr$(19)+chr$(147)+chr$(14) 
410 char ,15,0,"M en u e!"+chr$(13) 
420 for x=1 to 40:print "-";:next 
430 print:print:print:print "zwei-dimensionale Operationen" 
LAD pink Ysera ae une una Mara RE Re Kenrint 
430 Brine PPÜRKE... on nenne 1 LINIE. 0m an an zu 
460; print Kreis.caensunen en 3 Recheck, su... #.«s „" 
470 print "Rastereinteilung.5 Felder loeschen. .6"" 
480 print "Felder kopieren..? Flaechen fuellen.8" 
490 : 
500 for x=1 to 40:print chr$(183); :next:print 
510 : 
520 zs=1 
530 : 
540 data "Editieren!,1 
550 data "Grafik" ,13 
560 data "Diskette!" ‚21 
570 data "Beenden" „31 
580 : 
590 for x=1 to 4 : rem menuepunkte einlesen 
600 :read mn$(x),pm(x) : rem menuepunkt & position 
610 :char ‚pm(x),23,mn$(x) : rem auf bildschirm ausgeben 
620 next x 
630 : 
640 char ‚1,23,chr$(18)+mn$(1)+chr$( 146) 
650 : 
660 rem KRKKKKHHT HIN HT A a a a a a a a a u 
670 rem *** menuepunkt auswaehlen ****** 
680 rem KERKKKKHHKK HT I TI N I I N TH a a a a a a a a a 
690 : 
710 restore:z=1:za=1 
720 : 
730 getkey a% 
740 if a$=chr$( 29) then z=z+1:if z>4 then z=1 
750 if a$=chr$(157) then z=z-1:if z<1 then z=4 
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760 if a$=chr$( 13) then 800 

770 char ‚pm(za),23,chr$(146)+mn$(za) 
780 char ‚pm( z),23,chr$( 18)+mn$( z) 
790 za=z : goto 730 

800 print chr$(146); 

810 on z goto 810,810,810,810 

820 scnelr 

830 end 


Wenn Sıe dieses Programm ablaufen lassen, so werden Sie sehen, 
daß dieses Programm nur eine Auswahl an CAD-Operationen 
zur Verfügung stellt. Weiterhin haben Sie die Möglichkeit, mit 
den Cursortasten einen bestimmten Punkt dieses CAD-Systems 
anzuwählen und diesen dann durch Bestätigung durch die RE- 
TURN-Taste auszuführen. 


Sollten Sie zu diesem Zeitpunkt schon einmal die Return-Taste 
betätigen, so wird sich der Computer noch "aufhängen", da ja 
noch keinerlei Programmteile zur Verwaltung dieser entspre- 
chenden Punkte vorhanden sind. Dies geschieht in Zeile 10, wo 
später einmal die Zeilennummern zu den weiteren Menüpunkten 
stehen müssen. 


Das erste Untermenü, das wir nun benötigen, wäre ein Einga- 
beprogramm, mit dem Sie, wie oben besprochen, die Möglich- 
keit haben, Ihre Zeichenschritte einzugeben. Es müßten weiter- 
hin grundlegende Funktionen implementiert sein, die ein sinn- 
volles und relativ komfortables Editieren unseres späteren Zei- 
chenablaufes ermöglichen. 


Dieses Programm könnte nun, passend zu dem ersten Teil natür- 
lich, wie folgt aussehen: 
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3.1.2.4 Das Dialogprogramın 


840 : 

850 rem Kuhn ha ch ah ah a a a a a a a a a a a ah ah a a 

860 rem Aıkr% editieren KUH a a a a a a 

870 rem Kahn a aa a a a a a a a a a a a a a a a a 

880 : 

890 gosub 1550 : rem statuszeilen loeschen 

900 char ‚0,23,"1) input 2) delete 3) insert 4) list'"+chr$(13) 
910 input "Ihre Wahl (5)=ende ";mn 

920 if mn<1 or mn>5 then 900 : rem bereichsueberschreitung 

930 gosub 1550 : rem statuszeilen loeschen 

940 on mn goto 990, 1240,1060,1630,540 

950 : 

960 rem *** zeichenschritt eingeben *** 

9: 

980 gosub 1550 : rem statuszeilen loeschen 

990 char ‚O,23:print "Zeichenschrittnr.: ";:input z 

1000 gosub 1380 : rem zeichenart & parameter eingeben 

1010 char ‚0,23,"Weitere Zeichenschritte eingeben (j/n} ? " 
1020 char ‚0,24," ": rem 30 * space 
1030 getkey a$:if a$="j" then z=z+i:goto 980 

1040 z=z+1:goto 850 : rem zum editier menue 

1050 : 

1060 rem *** zeichenschritt einfuegen *** 

1070 : 

1080 gosub 1550 : rem statuszeilen loeschen 

1090 char ‚0,23,"Vor welchem zeichenschritt ?"+chr$(13) 

1100 input z2:gosub 1560 : rem statuszeilen loeschen 

1110 if z2>59 then char ,0,23,'"Kein Platz vorhanden !:getkey 
a$:goto 1090 

1120 for x=z2+1 to 59 

1130 :for x2=1 to 10 

1140 ::cm(x+1,x2)=cm(x,x2) 

1150 next x2,x:za=zs:zs=z2 

1160 char ‚0,23:print chr$(18)+"Zeichenschrittnr.:";zs;chr$( 146) 
1170 gosub 1380 : rem zeichenart & parameter eingeben 

1180 zs=za 

1190 char ‚0,23,"Weitere Zeichenschritte einfuegen {j/n} ?" 
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1200 
1210 
1220 
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char „O,24," ": rem 20 * space 
getkey a$:if a$="j" then 1090 
goto 850 


1230 : 


1240 


1250 : 


1260 
1270 
1280 


rem **%* zeichenschritt loeschen *** 


gosub 1550 : rem statuszeilen loeschen 
char ‚„O,23,"Welchen Zeichenschritt ?"+chr$(13) 
input z2 


1290 for x=60 to z2+1 step -1 

1300 :for x2=1 to 10 

1310 ::cm(x,x2)=cm(x-1,xX2) 

1320 next x2,x 

1330 char ‚O,23,"Weitere Zeichenschritte loeschen {j/n} ?" 
1340 char ‚0,24," ": rem 20 * space 
1350 getkey a$:if a$="j" then 1270 

1360 goto 850 

1370 : 

1380 rem KRKKRKKKKKRTTI TI TI a a a a 

1390 rem *** schrittart eingeben ***ktktkt%* 

1400 rem KERKKKKKTT TE T T TE Ta a a a a a a a a 

1410 : 

1430 char ‚0,23,"Bitte Zeichenart eingeben!+chr$(13) 


1440 input "Zeichenart ";za:cm(z,1)=za 

1450 gosub 1550 : rem statuszeilen loeschen 

1460 char,0,23,"Diese Zeichenart benoetigt";:print p(za);"Paramete 
pr" 

1470 for vz=1 to 500:next vz 

1480 gosub 1550 : rem statuszeilen loeschen 

1490 for x=2 to p(za)+1 

1500 :char ‚0,23,"Parameternummer :"+str$(x-1)+" "+chr$(13) 
1510 :input cm(z,x) 

1520 next x 

1530 return 

1540 : 

1550 rem KKKKKKKTHTH TI KIT I I TH HT I A A a a a a 

1560 rem *** zeilen 23 und 24 loeschen ** 

1570 rem KKERKKKKKKKKU KT TI TH I N TI A TH a a a a a a a 


1580 : 
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1590 char ‚0,23," "rem 
40 space 
1600 char ‚0,24 ," "= rem 
40 space 


1610 


1620 : 


1630 
1640 
1650 


1660 : 


1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 


return 


rem RER ID a a a a a a 


rem "** programm Listen Prrenttnunen 
rem KH a a a a a a a a a 


senclr:print chr$(14):print chr$(27)+"L" 

print "auf Drucker oder Bildschirm ? (d/b}" 

getkey a$ 

if a$="d" then open1,4,1:else open1,3 

for x=1 to 60 

:x$=str$(x) 

:print#1,chr$(12) : rem seitenwechsel ausfuehren 
:print#1,right$(x$, len(x$)- 1)+" "»:rem 7 * space 
:for x2=1 to 9 
::print#1,right$(str$(cm(x,x2)),len(str$(cm(x,x2)))-1);","; 
next x2 

:print#1,right$(str$(cm(x,x2)), len(str$(cm(x,x2)))-1) 
next X 

print:print"Bitte Taste druecken!! 

getkey a$ 

close 1 

print chr$(27)+!'m!"; 

goto 380 


1850 : 


Sie sollten nun natürlich, bevor Sie sich an dieses Programm 
heranwagen, die erste Zeilennummer in der Zeile 810 in die 
Zeile 850 umändern. 


Mit diesem zweiten Programmteil haben Sıe nun die Möglich- 
keit, Ihren CAD-Ablauf zu bearbeiten. Dieses Editierprogramm 
strotzt zwar nicht gerade vor Eingabefreundlichkeit und Schnel- 
ligkeit, doch gerade es zu perfektionieren, sollten Sie sich zum 
Ziel setzen! 
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Die grundlegenden Dinge jedoch, wie Editieren, Schritt einfü- 
gen, Schritt löschen und Ablauf listen haben wir in diesen Pro- 
grammteil integriert. 


Doch nun weiter im Text. Es fehlen jetzt noch andere grundle- 
gende Dinge, die das zukümftige Arbeiten mit unserem CAD- 
System ermöglichen. 


Natürlich müssen die Zeichnungen und Grafiken, die wir erstellt 
haben, abgspeichert werden 


Die einfachste Lösung hierfür wäre, die Grafik mit unseren 
Routinen aus dem 5. Kapitel als Ganzes abzuspeichern. Doch 
können wir, wenn wir dieses Verfahren benutzen, unsere Grafik 
nach einem erneuten Laden nicht mehr oder nur noch be- 
schränkt bearbeiten. Aber eine andere Lösung bietet sich an. Da 
wir mit Arrays arbeiten, sollte es kein großes Problem darstellen, 
diese auf Diskette zu speichern oder von einer solche zu laden. 
Diese Lösung bieten wir Ihnen als weiteres Teilprogramm nun 
im folgenden an: 


3.1.2.5 Die I/O-Operationen 


1860 rem ERKENNT TI I I I a a 


1870 rem *** diskettenoperationen ******%* 

1880 rem KEKKKKKKKKKTK TI TI IT I TG TA N KH A KH A A cc a a a a 

1890 : 

1900 gosub 1590 : rem statuszeilen loeschen 

1910 char ‚0O,23,"1) Programm laden 2) Programm speichern''+chr$(13 
) 

1920 input "Ihre Wahl (3=Ende)";a:gosub1590 : rem statuszeilen loe 
schen 

1930 on a goto 2170,1990,530 

1940 : 


1950 rem KRERKKHKKKHRKTTIT TI I I TI I I TI a a 


1960 rem *** programm speichern *****%*##% 
1970 rem KRKKKKKKKKKHK HT KT IT TI TI I TI I I I I a a 
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1980 : 

1990 gosub 1590 : rem statuszeilen loeschen 
2000 char ‚0,23,"Bitte Programmnamen eingeben"+chr$(13) 
2010 input dn$ 

2020 open1,8,1,dn$ 

2030 for x=1 to 60 

2040 :for z=1 to 10 

2050 ::print#1,cm(x,z) 

2060 next z,x 

2070 close 1 

2080 gosub 1590 

2090 char ‚0,23,ds$ 

2100 char ,O,24,"Bitte taste druecken!! 

2110 getkey a$:goto 1900 

2120 % 


2130 rem KEITH I a a a a a a a a a a a 


2140 rem #** Hroögramm Laden FFrRRMREHnuEE 
2150 rem KHK HT TG TS SD DO SD DD TE Te Te a a ak ak a 
2160 : 

2170 gosub 1590 : rem statuszeilen loeschen 
2180 char ‚0,23,"Bitte Programmnamen eingeben"+chr$(13) 
2190 input dn$ 

2200 open1,8,0,dn$ 

2210 for x=1 to 60 

2220 :for z=1 to 10 

2230 ::input#1,cm(x,z) 

2240 next z,x 

2250 close 1 

2260 gosub 1590 

2270 char ‚D,23,ds$ 

2280 char ‚O,24,"Bitte taste druecken" 

2290 getkey a$:goto 1900 


Wieder müssen Sie, bevor Sie sich dieses Programmteils bemäch- 
tigen, die entsprechende Zeilennummer in der Zeile 810 eintra- 
gen. Strikt nach Reihenfolge vorgegangen - der aufmerksame 
Leser wird dies schon erkannt haben - muß diesmal die dritte 
Zeilennummer in der Zeile 810 geändert werden. 
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Eine sinnvolle Erweiterung wären zusätzliche Ein- und Ausga- 
beroutinen für Drucker oder Plotter. Einige davon haben wir ja 
ım 5. Kapitel abgedruckt, vielleicht haben Sie Lust, eine solche 
zu integrieren? 


Nachdem nun alle "nicht-grafikorientierten" Probleme aus dem 
Weg geräumt wurden, lassen Sie uns den grafischen Problemen 
zuwenden. 


Sıe haben bestimmt schon im Eingabeprogramm erkannt, daß in 
unserem Befehlsarray zunächst die Nummer des Befehls gespei- 
chert wurde und im Anschluß daran die entsprechenden Para- 
meter folgten. Wir können nun unsere Gesamtfigur zeichnen, in- 
dem wir das gesamte Array durchgehen und aufgrund der 
Nummern der Grafikoperationen die einzelnen Grafikunterrou- 
tinen anspringen, in denen wiederum die einzelnen Befehlscodes 
übergeben werden. 


Hier nun der letzte Teil des CAD-Systems: 
3.1.2.6 Die Grafikroutinen 


2300 : 


2310 rem KARKKTHHHTITT II TI I a a a a a a a ı 


2320 rem *** grafikoperationen *rrrkkkkr% 

2330 rem KRKKKKKKKHHTIT TI TC I TI A DA TS Te a a a a a a a 

2340 : 

2350 gosub 1590 : rem statuszeilen loeschen 

2360 char ‚0,23,"Grafik 1) clear 2) draw'+chr$(13) 
2370 input "Ihre Wahl (3=Ende)";a 

2380 on a goto 2450,2660,2390 

2390 gosub 1550:goto 540 

2400 : 


2410 rem WARKKKKKKH HH GI SZ SD DS SD SD Do ea ca a a a a a a a a a 


2420 rem *** grafik loeschen Ye 
KAKKKKKKKKHTKTK TI II GI SG DA TS DS DZ DS DA a a a a a a 
2430 rem 


2440 : 
2450 gosub 1590 : rem statuszeilen loeschen 
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2460 char ‚O,23,"Grafik loeschen ?"+chr$(13) 
2470 input a$:if a$="ja'" then gl=1:else gl=0 
2480 goto 2350 

2490 : 


2620 rem KEKKKKHTT IT TE TE a a a ak a a ı ak a 


2630 rem *** programm ablaufen lassen *** 
2640 rem KKKKKKHH TH TH N TE Te a a a a a a a a ah a a a a 
2650 : 

2660 graphic 1,gl 

2680 for x=1 to 60 

2690 :s=cm(x,1):if s=0 then 2710 

2700 :on s gosub 2850,2920,2990,3060,3130,3240,3310,3380 
2710 next x 

2720 : 

2730 getkey a$ 

2740 graphic 0 

2750 goto 2350 

2760 : 

2790 return 

2800 : 


2810 rem KRAUT N A TS ST TE Te De De De ee a a a a a a a a a 


2820 rem *** punkt zeichnen Kritik 
2830 rem KHK KH TG TG TDG TDG DT DS SD De ee a A a a ac cc 
2840 : 

2850 draw 1,cm(x,2),cm(x,3) 

2860 return 

2870 : 


2880 rem KKKKKHHTTIHT TE T D N D a a a a a a a 


2890 rem *%** Linie’zeichnen "Fran 

2900 rem kkcccchch h h h ha a a a a a a a a ah a a a a 

2910 : 

2920 draw 1,cm(x,2),cm(x,3) to cm(x,4),cm(x,5) 
2930 return 

2940 : 


2950 rem KARKKKKKKTHHHT TC IT DZ DT DD SD SD De ce a a ah a a a a a 


2960 rem *** kreis zeichnen Yrıkkkkrkrkkr 

2970 rem KARKKKKKKKHITII TI N DA DA NT TH N I a a a a a a a a ı 

2980 : 

2990 circle 1,cm(x,2),cm(x,3),cm(x,4),cm(x,5),cm(x,6),cm(x,7), 
cm(x,8) 
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3000 return 
3010 : 


3020 rem KRAKKAKKKHHT TTS a a a a a 


3030 rem *** rechteck zeichnen ****+t*%** 

3040 rem AKA TH HT Te ST Te a a a a a a a a a a a a a ı a 

3050 : 

3060 box 1,cm(x,2),cm(x,3),cm(x,4),cm(x,5),cm(x,6),cm(x,7) 
3070 return 

3080 : 


3090 rem KR TI T T T  a a a a a 


3100 rem *** raster einteilung **** kt 
3110 rem KK I DT DA DS DT DD N a a a a a 
3120 ; 

3130 z=0 

3140 for xk=1 to xmax step cm(x,2) 

3150 for yk=1 to ymax step cm(x,3) 

3160 draw 1,xk,yk 

3170 next yk,xk 

3180 return 

3190 : 


3200 rem Arc ET ce ce ce ee a a a a a ak ak k ı a ı 


3210 rem *** felder loeschen Yrrkkkkkkkk% 
3220 rem KKKKHKKKKKKTKTHT TI TS DZ DS DE DE SD DT SD DD 6 ca «ca ca 
3230 : 

3240 box O,cm(x,2),cm(x,3),cm(x,4),cm(x,5),0,1 
3250 return 

3260 : 


3270 rem WERK IT TG TE DT DE DT a a a a a a a 


3280 rem *** felder kopieren **rkkAkkrAr 

3290 rem KUH HT TFT DT Te a a a a a a ah a a a 
3300 : 

3310 sshape a$,cm(x,2),cm(x,3),cm(x,4),cm(x,5) 
3320 gshape a$,cm(x,6),cm(x,7) 

3330 return 

3340 : 


3350 rem KURT TI TE DD DT a a a a a a a a a a a 


3360 rem *** flaechen ausfuellen ******** 
3370 rem Wh a a ah a a a a ah ah ı a a 


3380 : 
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3390 paint ‚cm(x,2),cm(x,3) 
3400 return 


Wie Sie in diesem Listing selbst sehen, haben wir uns nur der 
Grafikbefehle bedient, die das Commodore-BASIC von vorn- 
herein bietet. Selbstverständlich können Sie dieses CAD-System 
ganz nach Belieben erweitern. Ihrer Phantasie sind hier keine 
Grenzen gesetzt. 


Zu guter Letzt wollen wir Ihnen das CAD-Programm noch in 
seiner gesamten Länge auflisten, da durch die Änderungen, die 


beim Zusammenfügen der einzelnen Teile notwendig waren, 
Flüchtigkeitsfehler sehr schnell gemacht sind. 


3.1.2.7 Das gesamte CAD-System 


100 rem KAKKKKKKKHHTTTHTI N ZT TI N N N N A a N a a a 


110 rem *** Bei 

120 rem *** caddimat plus 4 Krk 

130 rem HH nenne nnnnnnn nenn Kir 

140 rem ***(min. 32k) Kar 

150 rem KEKKKKRUHU HT TI TI TG N TI TV DT DT N A A a a a a a a 

160 : 

170 dim cm(60,10),p(8) : rem befehlsarrays vorbereiten 
180 : 

190 rem *** anzahl der parameter festlegen *** 

200 : 


210 p(1)=2 : p(2)=4 : p(3)=8 

215 print chr$(27)+'"m";:rem scrollen verhindern 
220 p(4)=6 : p(5)=2 : p(6)=4 

230 p(7)=6 : p(8)=2 


240 : 

270 color 0,1 : rem hintergrundfarbe bestimmen 
280 color 1,6 : rem zeichen farbe bestimmen 
290 color 4,1 : rem rahmenfarbe bestimen 

300 : 


310 graphic 1,1 : rem grafik loeschen 
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320 : 


330 
340 


rem KAKKKKKKKKHTTTITITIT TITTEN TI A KK a a 


rem *** erstellen der zeichnung **** 


350 rem KHK TC SG DT DZ SD TO DD AD De ea a a a a a a ı 

360 : 

380 graphic 0 } 

390 print chr$(19)+chr$(19)+chr$(147)+chr$( 14) 

410 char ,15,0,"M en u e"+chr$(13) 

420 for x=1 to 40:print "-";:next 

430 print:print:print:print "zwei-dimensionale Operationen" 
440 (Hrint) Mans nun Sen) nat ne a an “print 

450: Bin Punkti dee 1 Te 2 
460: BrÄnE UKReTsr ln ect 3 Recheck.i. cs a. 4" 
470 print "Rastereinteilung.5 Felder loeschen. .6" 
480 print "Felder kopieren..’ Flaechen fuellen.8" 
490 : 

500 for x=1 to 40:print chr$(183); :next:print 

10 : 

520 zs=1 

330 2 


540 
550 


data "Editieren", 1 
data "Grafik" ,13 


560 data "Diskette" ‚21 

570 data "Beenden" ‚31 

580 : 

590 for x=1 to 4 : rem menuepunkte einlesen 
600 :read mn$(x),pm(x) : rem menuepunkt & position 
610 :char ‚pm(x),23,mn$(x) : rem auf bildschirm ausgeben 


620 


630 : 


640 


next X 


char ‚1,23,chr$(18)+mn$(1)+chr$( 146) 


650 : 


660 
670 
680 


rem KURT DI N SD DE DT A DD DT a a a a a a a 


rem *** menuepunkt auswaehlen ****** 
rem KUKKAKKKHHTTT TH HIT DZ TG DZ DE DS DS DE DT DA TA N «a ca 


690 : 


710 


0: 


730 
740 


restore:z=1:za=1 


getkey a$ 
if a$=chr$( 29) then z=z+1:if z>4 then z=1 
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750 
760 
770 
780 
790 
800 
810 
820 
830 


if a$=chr$(157) then z=z-1:if z<1 then z=4 
if a$=chr$( 13) then 800 

char ‚pm(za),23,chr$(146)+mn$(za) 

char ‚pm( z),23,chr$( 18)+mn$( z) 

za=z : goto 730 

print chr$(146); 

on z goto 850,2350,1860,820 

senclr 

end 


840 : 


850 
860 
870 


880 : 


890 
900 
910 
920 
930 
940 


rem WERKE HT TE TA Te a a a a a a a a a a a a a a 
rem ur% editieren warn 


rem KURT N A TA a a a a a a a a ı ka 


gosub 1550 : rem statuszeilen loeschen 

char ‚0,23,"1) input 2) delete 3) insert 4) List"+chr$(13) 
input "Ihre Wahl (5)=ende ";mn 

if mn<1 or mn>5 then 900 : rem bereichsueberschreitug 

gosub 1550 : rem statuszeilen loeschen 

on mn goto 990,1240,1060,1630,540 


950 : 


960 


rem *%** zeichenschritt eingeben *** 


92: 


980 
990 


gosub 1550 : rem statuszeilen loeschen 
char ‚0,23:print "Zeichenschrittnr.: ";z:input z 


1000 gosub 1380 : rem zeichenart & parameter eingeben 

1010 char ,‚0,23,"Weitere Zeichenschritte eingeben {j/n} ? " 
1020 char ‚0,24," ": rem 30 * space 
1030 getkey a$:if a$="j" then z=z+i:goto 980 

1040 z=z+1:goto 850 : rem zum editier menue 

1050 : 

1060 rem *** zeichenschritt einfuegen *** 

1070 : 

1080 gosub 1550 : rem statuszeilen loeschen 

1090 char ‚0,23,"Vor welchem zeichenschritt ?"+chr$(13) 

1100 input z2:gosub 1560 : rem statuszeilen loeschen 

1110 if z2>59 then char ,0,23,"Kein Platz vorhanden Nrgetkey 
a$:goto 1090 

1120 for x=z2+1 to 59 

1130 :for x2=1 to 10 
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1140 ::cm(x+1,x2)=cm(x,x2) 

1150 next x2,x:za=zs:zs=z2 

1160 char ‚0,23:print chr$(18)+"Zeichenschrittnr.:";zs;chr$(146) 
1170 gosub 1380 : rem zeichenart & parameter eingeben 


1180 zs=za 
1190 char ‚O,23,"Weitere Zeichenschritte einfuegen (j/n} ?" 
1200 char ,0,24," ": rem 20 * space 


1210 getkey a$:if a$="j" then 1090 

1220 goto 850 

Tasu: & 

1240 rem *** zeichenschritt loeschen *** 

1250 : 

1260 gosub 1550 : rem statuszeilen loeschen 

1270 char ,0,23,"Welchen Zeichenschritt ?"+chr$(13) 
1280 input z2 

1290 for x=60 to z2+1 step -1 

1300 :for x2=1 to 10 

1310 ::cm(x,x2)=cm(x-1,x2) 

1320 next x2,xX 

1330 char ‚0O,23,"Weitere Zeichenschritte loeschen {(j/n} ?" 
1340 char ‚0,24," "; rem 20 * space 
1350 getkey a$:if a$="j" then 1270 

1360 goto 850 

1370 : 


1380 rem KURT I A a a a a a a a 


1390 rem *** schrittart eingeben *r*kkkt% 

1400 rem KUKKKKHHTC HN IT TH TS Ta a a a a a a ı 

1410 : 

1430 char ,‚0,23,'"Bitte Zeichenart eingeben'+chr$(13) 
1440 input "Zeichenart ";za:cm(z,1)=za 

1450 gosub 1550 : rem statuszeilen loeschen 

1460 char ‚„O,23:print "Diese zeichenart benoetigt";p(za); 
"Parameter" 

1470 for vz=1 to 500:next vz 

1480 gosub 1550 : rem statuszeilen loeschen 

1490 for x=2 to p(za)+1 


1500 :char ,‚0,23,"Parameternummer :"'+str$(x-1)+" "+chr$(13) 
1510 :input cm(z,x) 
1520 next x ; 


1530 return 
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1540 : 


1550 rem WERKE TE Da a a a a a a a 


1560 rem *** zeilen 23 und 24 loeschen ** 

1570 rem KRRKKKK TH TG DS TDG DS DE DE N DE SD De De A a a a a a a a ı 

1580 : 

1590 char ,‚0,23," ir; 
rem 40 space 

1600 char ,0,24," ". 
rem 40 space 

1610 return 

1620 : 


1630 rem KARKKRKKHTTTH IT II TG TE DS DD DE DD a a a a a a a 


1640: rem *** programm Listen Yrkwwannn 

1650 rem KURKKKAHTHT TI TC TG TDG OD DT DT N A A a a a a a a a a a 

1660 : 

1670 scncelr:print chr$(14):print chr$(27)y+"L" 

1680 print "auf Drucker oder Bildschirm ? {d/b}" 

1690 getkey a$ 

1700 if a$="d" then open1,4,1:else open1,3 

1710 for x=1 to 60 

1720 :x$=str$(x) 

1730 :print#1,chr$(12) : rem seitenwechsel ausfuehren 

1740 :print#1,right$(x$, len(x$)- 1)+" "»:rem 7 * space 
1750 :for x2=1 to 9 

1760 ::print#1,right$(str$(cm(x,x2)), len(str$(cm(x,x2)))-1);","; 
1770 next x2 

1780 :print#1,right$(str$(cm(x,x2)), len(str$(cm(x,x2)))-1) 
1790 next x 

1800 print:print"Bitte Taste druecken!! 

1810 getkey a$ 

1820 close 1 

1830 print chr$(27)+'"m"; 

1840 goto 380 

1850 : 


1860 rem KRKKKKHRTHTTTITTT  T  A 


1870 rem *** diskettenoperationen *****%*%* 

1880 rem KKKKKAKKKK HT TI TI I N I N A A A a a a a a a a a a 

1890 : 

1900 gosub 1590 : rem statuszeilen loeschen 

1910 char ‚0,23,"1) Programm laden 2) Programm speichern! 
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+chr$(13) 

1920 input "Ihre Wahl (3=Ende)";a:gosub1590 : rem statuszeilen 
loeschen 

193U on a goto 2170,1990,530 

1940 : 


1950 rem KERKRKTTTTT a a a a a a a ı % 


1960 rem *** programm speichern ****kkA%% 
1970 rem KARA TI TS TDG DS DS DE DT N DE A Te A a a a a a a a % 
1980 : 

1990 gosub 1590 : rem statuszeilen loeschen 
2000 char ,‚0,23,'"Bitte Programmnamen eingeben'"+chr$(13) 
2010 input dn$ 

2020 open1,8,1,dn$ 

2030 for x=1 to 60 

2040 :for z=1 to 10 

2050 ::print#1,cm(x,z) 

2060 next z,x 

2070 close 1 

2080 gosub 1590 

2090 char ‚0,23,ds$ 

2100 char ,0,24,"Bitte taste druecken" 

2110 getkey a$:goto 1900 

2120 : 


2130 rem KRRKKKKHTTTT TITTEN a a a a 


2140 rem *** programm laden Krk 
2150 rem KHK HN TITTEN N I I TI N I a a 
2160 : 

2170 gosub 1590 : rem statuszeilen loeschen 
2180 char ‚0,23,"Bitte Programmnamen eingeben!'+chr$(13) 
2190 input dn$ 

2200 open1,8,0,dn$ 

2210 for x=1 to 60 

2220 :for z=1 to 10 

2230 ::input#1,cm(x,z) 

2240 next Z,X 

2250 close 1 

2260 gosub 1590 

2270 char ,„0,23,ds$ 

2280 char ‚0,24,"Bitte taste druecken!' 

2290 getkey a$:goto 1900 
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2300 : 


2310 rem hr 


2320 rem *** grafikoperationen Krririnn 

2330 rem acc Tg De ce YA Te A ee A A A a a Ka a a a ı ak ı 

2340 : 

2350 gosub 1590 : rem statuszeilen loeschen 

2360 char ‚D,23,"Grafik 1) clear 2) draw'+chr$(13) 
2370 input "Ihre Wahl (3=Ende)";a 

2380 on a goto 2450,2660 ,2390 

2390 gosub 1550:goto 540 

2400 : 


2410 rem KUKKKHHT TI TTS Te TH A a a a a a a a ak ak a a a 


2420 rem *** grafik loeschen KW 
2430 rem KHK HT Te Te DS DD ee ce ee Te a a a a a a ah a a 
2440 : 

2450 gosub 1590 : rem statuszeilen loeschen 
2460 char ‚O,23,"Grafik loeschen ?"+chr$(13) 
2470 input a$:if a$="ja'' then gl=1:else gl=0 
2480 goto 2350 

2490 : 


2620 rem KETTE Ta a a a a a 


2630 rem *** programm ablaufen lassen *** 
2640 rem War Te Te De ce Te A A a A a a a a a a a a a 
2650 : 

2660 graphic 1,gl 

2680 for x=1 to 60 

2690 :s=cm(x,1):if s=O then 2710 

2700 :on s gosub 2850,2920,2990,3060,3130,3240,3310,3380 
2710 next x 

2720 : 

2730 getkey a$ 

2740 graphic O 

2750 goto 2350 

2760 : 

2790 return 

2800 : 


2810 rem KHK HT N DD a a a a a a a a a a a 


2820 rem *** punkt zeichnen Hk 
2830 rem Halli 


2840 : 
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2850 draw 1,cm(x,2),cm(x,3) 
2860 return 
2870 : 


2880 rem KRKRKKKKKTTITITI TI TN A T A a a 


2890 rem *%* Linie zeichnen "Hrn 
2900 rem AKA N N A DS DT Fe Te TA A a a a a a a a a a a 

2910 : 

2920 draw 1,cm(x,2),cm(x,3) to cm(x,4),cm(x,5) 
2930 return 

2940 : 


2950 rem RR a  a a a ı ı oa 


2960 rem *** kreis zeichnen Krk 

2970 rem WarchccTT a a a a a a a a a a ı a 

2980 : 

2990 circle 1,cm(x,2),cm(x,3),cm(x,4),cm(x,5),cm(x,6),cm(x,7), 
cm(x,8) 

3000 return 

3010 : 


3020 rem KAERKKKKKNTTTHTI TI TTS DT DE DS N N Ko 


3030 rem *** rechteck zeichnen ****ktA%*% 

3040 rem AKA AH HI A AT A A TH a a a a a a a a 

3050 : 

3060 box 1,cm(x,2),cm(x,3),cm(x,4),cm(x,5),cm(x,6),cm(x,7) 
3070 return 

3080 : 


3090 rem KEKKKAKKH HT NT DT DD N a a a a ha a ak a ak a 


3100 rem *** raster einteilung Kt 
3110 rem Warcchcccchc  hhhhhh ha ka a a 
3120 » 

3130 z=0 

3140 for xk=1 to xmax step cm(x,2) 

3150 for yk=1 to ymax step cm(x,3) 

3160 draw 1,xk,yk 

3170 next yk,xk 

3180 return 

3190 : 


3200 rem KRERKRKKKKTTHTHTINI N N N I a a a a 


3210 rem *** felder loeschen Krk 
3220 rem KAKKKKAHHTT HI I TI I N TH TE A A A a a a a a a a a ı 


3230 : 


Das Grafikbuch zum C16, C116 und Plus /4 163 


3240 box O,cm(x,2),cm(x,3),cm(x,4),cm(x,5),0,1 
3250 return 
3260 : 


3270 rem RERKEKKKHTTT TI I TI N N I N A a a a a a a a 


3280 rem *** felder kopieren *rttkkWikir 

3290 rem KERWKEKKHH IT TI TI II TE DS DD a a a a a a a a a 
3500 : 

3310 sshape a$,cm(x,2),cm(x,3),cm(x,4),cm(x,5) 
3320 gshape a$,cm(x,6),cm(x,7) 

3330 return 

3340 : 


3350 rem RK HT TS DE DD DD a a a a a a a a a 


3360 rem *** flaechen ausfuellen *rtkttt 
3370 rem Kaya HH ec ec ce a He A a a a a a a a a ı 
3380 : 

3390 paint ‚„cm(x,2),cm(x,3) 

3400 return 


3.2 Einführung in die Statistik 


Wir kommen nun zur wohl bekanntesten Form der Grafikan- 
wendung, der Statistik, die Sie sicher aus unzähligen Wahlsen- 
dungen oder aus der Schule kennen. 


Doch was ıst Statistik nun eigentlich? 


Ich habe für Sie in einem Lexikon nachgeschaut, hier die Defi- 
nition: 


STATISTIK [die], (frz.-ıtal.), die Methode zur Untersuchung 
von Massenerscheinungen. Sie versucht den Umfang, die Glie- 
derung oder Struktur einer Masse, die zeitliche Entwicklung ei- 
ner oder das Verhältnis mehrerer Massenerscheinungen zueinan- 
der zu erkennen. Sie hat ihre mathematischen Grundlagen und 
Rechtfertigungen im "Gesetz der großen Zahl" (wenn die Zahl 
der untersuchten Einzelfälle genügend groß ist, werden die zu- 
fälligen Abweichungen aufgehoben und die typischen Zahlen- 
verhältnisse kommen zum Vorschein) und in der Wahrschein- 
lichkeitsrechnung. Die Statistik findet besonders in der Wirt- 
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schafts- und Bevölkerungs-Statistik Anwendung. Auch in der 
Physik (z.B. in der Wärmelehre und in der Quantentheorie) bil- 
det die Statistik ein wichtiges Hilfsmittel. 


(Aus "Bertelsmann Volkslexikon") 


Doch auch schon in der grauen Vorzeit liegt die Kinderwiege 
der Statistik. 


In Griechenland wurden Statistiken von den Siegern der Olym- 
pischen Spielen, in Ägypten über die Bewegung der Sterne ge- 
führt und auch die Stammbäume der chinesischen Dynastien 
waren Anfänge der Statistik. 


Doch erst der berühmte französische Mathematiker Rene Des- 
cartes beschäftigte sich im siebzehnten Jahrhundert systematisch 
mit der grafischen Statistik. Er war der erste, der Zahlen mit 
Strichen und Kreisen darstellte 


Die Methoden zur grafischen Darstellung wurden in den nach- 
folgenden drei Jahrhunderten immer mehr vervollkommnet, und 
mit besseren Formeln und Umrechnungstabellen wurden auch 
die erstellten Statistiken genauer. Es dauerte zwar immer noch 
seine Zeit, bis alle Werte scaliert bzw. so angepaßt waren, daß 
sie dann auf dem Papier dargestellt werden konnten, aber es 
waren immerhin schon Fortschritte im Vergleich zu den "aus der 
Hand gamalten" Statistiken der Anfänge. Außerdem forderten 
Industrielle Revolution und die Besiedelung fremder Kontinente 
genauere Mittel zur Auswertung des erhaltenen Zahlenmaterials. 
Eine Schwachstelle im System war jedoch immer noch der 
Mensch. Er mußte die Werte grafisch darstellen, das führte zu 
ungenauen Zeichnungen. Und schon beim Umrechnen, Anglei- 
chen oder Abschreiben von Werten wurden einige Fehler ge- 
macht. Ich möchte nur kurz die Geschichte des Spinats anreißen, 
bei der eine Sekretärin bei einer Studie über verschiedene Ge- 
müsearten den Eisengehalt des Spinats falsch abschrieb und seit 
daher Spinat als sehr gesund gilt. 


Doch heute sind solche Fehler seltener, denn die Daten werden 
einmal in einen Computer getippt oder direkt von Messinstru- 
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menten an den Computer übertragen, der diese dann in Bruch- 
teilen von Sekunden skaliert und dann auf einen Grafikschirm 
mit einer Auflösung von 1024*1024 Punkten und einer Farbpa- 
lette von 4096 Farben darstellt (was das bedeutet, müßten Sie ja 
inzwischen gelernt haben!). Und dann sehen wir diese Kuchen - 
oder Balkengrafiken in einer der nächsten Wahlsendungen. 


Nach diesem kleinen Ausflug in die Geschichte der Statistik 
möchte ich Ihnen einen Statistikprogrammierkurs und danach ein 
paar fertige Anwendungsprogramme vorstellen. 


Zur grafischen Darstellung der verschiedensten Statistiken gibt 
es je nach Aussagewunsch die unterschiedlichsten Möglichkeiten. 
Im folgenden sollen die geläufigsten vorgestellt und erläutert 
werden: 


- Kurvendiagramme 
- Balkendiagramme 
- Kuchendiagramme 


3.2.1 Kurvendiagramıe 


Besitzen wir viele "Meßwerte" in Abhängigkeit eines bestimmten 
Faktors (z.B. der Umsatz einer Firma in Abhängigkeit vom je- 
weiligen Monat (d.h. in jeweils verschiedenen Monaten)), so 
verwenden wir allgemein diese erste Form der Grafikausgabe. 
Hierbei werden die gleichen Techniken angewandt, wie dies bei 
der Darstellung von 2-dimensionalen Funktionen der Fall ist (s. 
Kapitel 3.5). Der Unterschied liegt lediglich in der Herkunft der 
einzelnen Daten. Bei der Funktionsdarstellung werden sie jeweils 
und beliebig dicht und genau berechnet, während wir die ein- 
zelnen Werte hier direkt aus bestimmten Tabellen holen. 


Ein Problem, auf das wir bei allen Statistikprogrammen stoßen 
werden, ist die Eingrenzung der unterschiedlichen Werte auf das 
enge Bildschirmfenster. Entweder sind die Werte zu hoch oder 
sie sind zu niedrig, als daß sie direkt eins zu eins auf dem 
Bildschirm dargestellt werden könnten. Wir sind also gezwungen, 
die verschiedenen Werte mit einem gemeinsamen Streckungs- 
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bzw. Stauchungs-Faktor zu multiplizieren. Diesen Faktor wählt 
man zweckmäßigerweise so, daß die entstehende Grafik das 
volle Bildschirmfenster ausfüllt. Das heißt also, die beiden Ex- 
trema Minimum und Maximum der Statistikwerte sollten jeweils 
die oberste bzw. unterste Grenze des Bildschirms erreichen. 


Um dieses Ziel zu realisieren, müssen wir zunächst einmal fest- 
stellen, welche Werte diese beiden Extrema haben. Im Anschluß 
daran berechnen wir aus dem zur Verfügung stehenden Platz in 
der Grafik (wir arbeiten bekanntlich mit einer Auflösung von 
319 mal 200 Punkten) und diesen beiden Werten den Strec- 
kungs- bzw. Stauchungsfaktor für alle anderen Werte. Weiterhin 
interessiert die Anzahl der verschiedenen Werte, da auch nach 
rechts hin alle Kurveneintragungen etc. ins Grafikfenster passen 
sollen. Aus der Anzahl nun berechnen wir ebenfalls einen Fak- 
tor, der uns die Dichte der Werte in x-Richtung angibt. 


Haben wir uns um die Berechnung dieser Faktoren gekümmert, 
so bleibt uns noch die Zeichnung der Achsen und der Skalierun- 
gen (neben der eigentlichen Kurve selbstverständlich). Doch 
schauen Sie sich das ganze einmal in vivo an. 


Beachten Sie bitte bei diesem Programm: Diejenigen von Ihnen, 
die sich mit einem C16 mit 16 Kbyte RAM beschäftigen, dürfen 
weder REM-Zeilen noch die hier zur besseren Lesbarkeit einge- 
gebenen Leerzeichen zwischen den Befehlen in den Computer 
eintippen. Wird dieser gut gemeinte Ratschlag nicht beherzigt, so 
hat man spätestens nach dem ersten Probelauf mit der Fehler- 
- meldung "out of memory error" zu rechnen. 


100 rem Were 


110 rem ** ur 
120 rem ** kurvengrafik ** 
130 rem ** ur 


140 rem WR a ah a a ı a a 


150 rem werteinitialisierung: 
160 x|l= O0 : xh=319 
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170 
180 


190 
200 
210 


220 
230 
240 
250 
260 
270 


280 
290 


300 
310 


320 
330 
340 
350 
360 
370 
380 
390 
400 


410 
420 


430 
440 


450 
460 
470 


yl= O0 : yh=190 
tt=yh+2 


rem bildschirm-Init 
color 0,6 : color 1,1 
scnclr 


rem werteeingabe: 

input "anzahl der kurven!';ak 
input "raster J/n ";ra$ 
input "monatsangabe j/n ";mo$ 
mo$ = left$(mo$+"n",1) 

if mo$="j" then aw=12 : goto 360 


input "anzahl werte ",aw 


if aw>(xh-x1L)/3 or aw=O then 320 : 


rem speicher-init: 
dim we(ak,aw+1) 


for i=1 to ak 
for j=1 to aw 


print "reihe:";i;"wert:";j; 


input we(i,)) 
a=sabs(we(i,))) 
if a>hi then hi=a 
next ]j 
we (i,j)=we(i,j-1) 
next i 


yf=1 : a=(yh-yl)/2 
if hi>a then yf=a/hi 


rem grafik zeichnen: 
graphic 1,1 


for i=1 to ak 


z=-0 : rem index auf null setzen 


for x=xl to xh step20 


rem erlaubt? 


: rem anzahl kurven 
: rem anzahl werte 


: rem wert eingeben 


: rem maximum bestimmen 


: rem letzter = vorletzter 


: rem y-umrechnungsfaktor 
: rem berechnen 
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480 z=z+1 : rem index erhoehen 

490 y=yl+(yh-yl)/2 : rem y-koordinate 

500 y-y-we (i,z)*yf : rem berechnen 

510 if z=1 then x0=xl : yO=y : rem erster wert? 

520 draw 1,x0,y0 to x,y : rem linie zeichnen 

530 x0=x : yO=y : rem koordinaten speichern 
540 next X 

550 t$=str$(i) : x=x0-len (t$)*8 : rem nummer in string 

560 y=y0-4 : gosub 790 : rem text ausgeben 

570 next i 


580 rem monate eintragen: 

590 if mo$="n!" then 850 

600 for i=xl to xh step (xh-xl)/au 
610 read t$ 

620 x=i+2 : y=tt : gosub 790 
630 next i 


640 rem rahmen zeichnen: 

650 box 1,xl,yl,xh,yh 

660 draw 1,xl,yl+(yh-yl)/2 to xh,yl+(yh-yl)/2 
670 for x=xl to xh step aw 


680 draw 1,x,yl to x,yl+2 : rem x-einteilungen 
690 draw 1,x,yh to x,yh-2 : rem zeichnen 
700 next x 


710 for y=yl to yh step 10*yf 

720 draw 1,xl,y to xl+2,y : rem y-einteilungen 
730 draw 1,xh,y to xh-2,y : rem zeichnen 

740 next y 


750 data jan,feb,mrz,apr,mai, jun 
760 data jul,aug,sep,okt,nov,dez 
770 data 0 


780 rem text ausgeben: 

790 xa=(xl and 248)+8 : ya=(yl and 248)+8 
800 sshape qa$,xa,ya,xa+tlen (t$)*8-1,ya+7 
810 char 1,xa/8,ya/8,t$% 

820 sshape z$,xa,ya,xatlen (t$)*8-1,yat7 
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830 gshape q$,xa,ya 
840 gshape z$,X,Y 
850 return 





Hier kurz eine kleine Beschreibung des obigen Programmes: 


Nach der Definition der Bildschirmgrenzwerte, die wir ja benö- 
tigen, um die nachfolgend zu zeichnende Grafik auf die richtige 
Größe zu bringen, folgt in der Zeile 180 die Festlegung der y- 
Koordinate, an der die eventuellen Monatsnamen ausgegeben 
werden sollen. 


Es folgt die Werteeingabe mit Werteanzahl, Kurvenzahl etc. 
Diese Werte werden nun in ein vorher dimensioniertes Array 
geladen und dabei der höchste und der niedrigste Wert identifi- 
ziert. 


Nun wird in den Zeilen 400 und 410 der Umrechnungsfaktor 
berechnet, um die Kurve (Werte) in y-Richtung zu strecken 
oder zu stauchen. Alsbald werden die verschiedenen Kurven, bei 
Bedarf die Monatsbezeichnungen und das Koordinatensystem, 
gezeichnet. 
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Noch ein Wort zur Textausgabe, die hier in einem Unterpro- 
gramm ab Zeile 790 realisiert wird: Zunächst wird ein beliebiger 
Bereich der Grafik mit einer durch 8 teilbaren x- und y-Koor- 
dinate mittels SSHAPE-Befehl in einem String (Variable Q$) 
zwischengespeichert (Zeile 800). Alsdann gibt man den auszuge- 
benden String mit dem CHAR-Befehl an genau diese Stelle aus 
(Zeile 810) und liest ihn durch einen erneuten SSHAPE (Zeile 
820) in einen zweiten String mit Namen Z$. Nun kann der ur- 
sprünglich an dieser Stelle befindliche Grafikteil aus dem String 
Q$ mit dem Befehl GSHAPE wieder zurückgestellt werden. Die 
nun im String Z$ gespeicherte Grafikdefinition für den eigent- 
lich zu zeichnenden String kann nun an der gewünschten Stelle 
(x,y) ın die Grafik geschrieben werden. 


Wenn es Ihnen Spaß macht, dann sollten Sie einmal die ver- 
schiedenen Eingangsparameter (Bildschirmgrenzen, Achsenkreuz 
etc.) verändern und sich den Effekt anschauen. 


3.2.2 Balkendiagramme 


Bei den Balkendiagrammen, mit denen wir uns im folgenden 
beschäftigen wollen, wird die Erstellung übersichtlicher Kurven 
bereits etwas komplizierter, obwohl wir auch hier nach dem 
gleichen Prinzip vorgehen. Man wendet sie bei relativ kleinen 
Datenmengen an, die optisch besser sichtbar gemacht werden 
sollen. Ein Wertepaar dient nun nicht zur Bestimmung der Lage 
eines Punktes auf dem Bildschirm, sondern der Höhe und Posi- 
tion eines Balkens, der sich von der x-Achse in die Höhe zieht. 


Wenn Sie bereits die Einführung zur Kurvengrafik gelesen ha- 
ben (und das sollten Sie an dieser Stelle nachholen, wenn Sie das 
bisher versäumt haben), dann dürfte Ihnen die Berechnung eines 
Streckungs- bzw. Stauchungs-Faktors nicht mehr neu vorkom- 
men, die notwendig ist, um die entstehende Grafik für das zur 
Verfügung stehende Bildschirmfenster passend zu machen. 


Das folgende kleine Programm soll Ihnen die Programmierung 
solcher Balken demonstrieren. Nehmen wir an, es sollen die 
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Umsatzzahlen einer Firma über ein Jahr mit Hilfe eines Balken- 
diagramms dargestellt werden, um dem Leiter eine dringend nö- 
tige Übersicht zu vermitteln. Die jeweiligen Zahlen (in Tausend 
DM) können Sie dabei nach dem Programmstart eigenhändig 
eingeben. Sie können sie natürlich auch der Einfachheit halber 
in DATA-Zeilen unterbringen, oder ganz luxuriös von Diskette 
lesen. Dafür sind dann jeweils nur kleine Änderungen in dem 
Eingabe-Programmteil notwendig. 


Auch hier gilt wieder das bereits oben Gesagte: C16-Besitzer mit 
16 KByte RAM dürfen keine REM-Zeilen und keine Leerzei- 
chen zwischen den einzelnen Befehlen eingeben, um nicht un- 
nötigen Speicherplatz zu verschwenden, der bei diesem Rechner 
dringend vonnöten ist. Andernfalls erscheint nach dem Pro- 
grammstart ein "out of memory error". 


1 00 rem Aykcccc cc A «cc ec «<a a cv» 


110 rem ** u 
120 rem ** balkendiagramm ** 
130 rem ** ar 


140 rem Wessel 


150 xl=0 : xh=319 : rem koord. x-grenzwerte 
160 yl=0 : yh=199 : rem koord. y-grenzwerte 


170 rem achsenkoordinaten: 


180 vi=x1l+35 : v2=xh : rem senkrecht 
190 h1=yl+15 : h2=yh-31 : h3=h2-(h2-h1)/3 : rem waagerecht 
200 sb=((v2-v1)/24)-2 : rem saeulenbreite 


210 rem bildschirm-init 
220 color 0,1 : color 4,1 : color 1,15 : rem farben 
230 scnclr : rem bildschirm loeschen 


240 rem speicher-init: 

250 dim we(11),mo$(11) 

260 data jan, feb,mrz,apr,mai, jun 

270 data jul,aug,sep,okt,nov,dez 

280 for i=0 to 11 : read mo$(i) : next : rem monate lesen 
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290 
300 
310 
320 
330 
340 
350 


360 
370 


380 
390 
400 
410 
420 


430 
440 
450 
460 
470 


480 
490 
500 
510 


520 
530 
540 
550 
560 
570 
580 
>90 
600 
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input "grafiktitel";s$ 
for i=0 to 11 
print "wert fuer monat";mo$(i);". 
input we(i) : rem 
if we(i)>max then max=we(i) : 
if weCi)<min then min=we(i) : 
next ij 


rem 
rem 


rem achsen zeichen: 
graphic 1,1 : rem 
ft=(h3-h1)/600 : 
if max<=600 and min>=-300 then 580 : 
ft=(h3-h1-1)/abs(max) 

if h3+tabs (min)*ft <=h2 then 580 
ft=(h2-h3)/abs(min) 


draw 1,v1,h1 to 
draw 1,v1,h2 to 
draw 1,v1,h3 to 
draw 1,v1,h1 to 
draw. 1,v2,h1 to 


v2,h1 
v2,h2 : rem 2. 
v2,h3 : 
v1,h2 : 
V2;n2 ; 


: rem 1. 


rem 3. 
rem 1. 
rem 2. 


ziel=h1 

gosub 760 
ziel=h2+1 
gosub 760 


: stp= 


for i=1 to 3 : z=0 


: stp=-(h3-h1)/6 : inc= 100 


(h2-h3)/3 : inc=-100 


: rem eingabe 


Hi» 
‘ 


wert einlesen 
finde max imum? 
und minimum? 


grafik einschalten 


: rem normal -faktor 


rem innerhalb? 


: rem neuer faktor 
: rem minimum auch ok? 
: rem neuer faktor 


waagerechte 
waagerechte 
waagerechte 
senkrechte 
senkrechte 


for j=vi+sb+3 to v2 step (v2-v1)/12 


x=j-4 : y=h2+4+((i-1)*8) 
t$=mid$ (mo$(z),i,1) 
gosub 690 


: rem wert ausgeben 


draw 1,j,h2+2 to j,h2-2 : rem einteilungen 


z=z+1 
next j 
next i 


: rem index erhoehen 


610 char 1,(xl+(xh-x1)/2-(len(s$)*4))/8+1,s$ 
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620 rem werte eintragen: 

630 x=0 : rem index 

640 for i=vi+sb+3 to v2 step (v2-v1)/12 
650 box 1,i-sb,h3-(we(x)*ft), i+tsb;h3,0,1 
660 x=x+1 : rem index erhoehen 

670 next i 


680 rem text(x,y,t$) ausgeben: 

690 xa=(xl and 248)+8 : 248)+8 

700 sshape qa$,xa,ya,xatlen(t$)*8-1,ya+7 
710 char 1,xa/8,ya/8,t$ 

720 sshape z$,xa,ya,xatlen(t$)*8-1,ya+7 
730 gshape qa$,xa,ya 

740 gshape z$,x,y 

750 return 


760 z=0 
770 for i=h3 to ziel step stp 
780 x=xl : y=i-3 : t$=str$(z) 


790 gosub 690 : rem wert ausgeben 
800 draw 1,v1-2,i to v1+2,i : rem einteilungen setzen 
810 z=z+inc : rem erhoehen/erniedrigen 


820 next i : return 


Um Ihnen das Verständnis dieses Programms etwas zu erleich- 
tern, folgt in diesem Absatz eine kleine Beschreibung: 


Nach der Definition der Bildschirmränder (wie im Programm 
zur Erstellung von Kurvengrafiken) werden die x- und y-Koor- 
dinaten der Achsen angegeben. Nun folgt die Berechnung der 
Breite aller Säulen, die sich aus der Anzahl der Säulen und der 
Bildschirmbreite ergeben. 


Die ganze Grafik soll mit einer Überschrift versehen werden, 
die Sie nun ebenso eingeben können wie die verschiedenen 
Werte für die einzelnen Monate. 
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Auch hier (Sie bemerken die Ähnlichkeit mit der Kurvengrafik) 
werden nun Minimum und Maximum der Werte ermittelt und 
zur Berechnung eines Streckungsfaktors (y-Zerrfaktor) heran- 
gezogen. In diesem Fall bleiben aber alle Werte innerhalb eines 
Bereiches von -300 bis +600. Sollten sich diese Werte bereits von 
Anfang an innerhalb dieses Bereiches befinden, so bleibt der 
vorgegebene y-Zerrfaktor unverändert. 


Achsen und Achsenbezeichnungen sowie die Achsenbeschriftun- 
gen stellen jetzt kein Problem mehr dar (für die Erklärung der 
Schreib-Unterroutine schauen Sie bitte bei den Erläuterungen 
zur Kurvengrafik nach). Zum Schluß werden noch die Balken 
eingezeichnet und die fertige Grafik liegt Ihnen zu Füßen. 


3.2.3 Kuchendiagramme 


Diese Art der grafischen Statistik ist geeignet zur übersichtlichen 
Darstellung von Ver- bzw. Aufteilungen von Mengen in Teil- 
mengen und der Größenverhältnisse unter ihnen. Hierzu wird 
ein Kuchen (Kreis) gezeichnet, der die Gesamtheit aller zu be- 
trachtenden Elemente darstellt (100%) und der sich in verschie- 
den große Teilstücke unterteilt. Die Größe der Teilstücke gibt 
dann den Anteil dieser Teilmenge an der Gesamtmenge an. 


Oft sehen wir solche Grafiken bei Wahlen zur Darstellung z.B. 
der Sitzverteilung im Bundestag etc. oder im Geographieatlas, 
um beispielsweise die Anteile bestimmter Import- oder Export- 
waren eines Landes am Gesamtumschlag zu demonstrieren. 


Doch wie ist solches Vorhaben programmtechnisch zu verwirk- 
lichen? Schließlich haben wir es mit der ziemlich komplizierten 
Relation eines Kreises zu tun, der in bestimmte Winkelaus- 
schnitte unterteilt werden muß. 


In dem folgenden Programm sollen verschiedenen Werten in ei- 
ner Kuchengrafik ihrem prozentualen Anteil an der Gesamtheit 
entsprechend verschieden große Kuchenstücke zugeordnet wer- 
den. Das Ganze soll in einer ansprechenden und übersichtlichen 
Form grafisch dargestellt werden. 
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Bevor wir uns mit Einzelheiten beschäftigen, hier zunächst ein- 
mal das Programm: 


100 
110 
120 
130 
140 


150 
160 
170 
180 
190 
200 
210 
220 
230 


240 
250 
260 


270 
280 


290 
300 
310 
320 


330 
340 
350 
360 
370 
380 
390 


rem Kakıck cc A Ha a a 
rem ** ww 
rem ** kuchengraphik ** 
rem ** ur 
rem Acc cc TH ce Te Te a cc A a a a a a 
rem werteinitialisierung: 
xl= 0 : xh=319 : rem 
yl= 0 : yh=199 : rem 
mx=xl+(xh-x1)/2 : rem 


my=yl+(yh-yl)/2 : rem 


rx=(yh-yl)/3 : rem 
ry=rx/3 : rem 
as=20 : rem 
fa=3.141562/180 : rem 
rem bildschirminit: 

color 0,1 : color 4,1 : rem 
color 1,6 : scnelr : rem 


rem speicherinit: 
dim we(11),tx$(11) 


rem werteeingabe: 
input "ueberschrift 
input "anzahl werte 


for i=0 to az%-1 
print i+1;". name!"; 
Brint 1+1;5%. wert"; : 


tx$li)=left$ltxsli)+" 
su=su+we(i) 

next | 

g9s=360/su : rem 


: input tx$(i) 
input we(i) 
.3) 


x-grenzwerte 
y-grenzwerte 
x-mittelpunkt 
y-mittelpunkt 
x-radius 

y-radius 

abstand text 
umrechnungsfaktor 


farben 
bildschirm clr 


":ue$ 
",az% 
if az%>12 or az%<1 then 310 


: rem anzahl ok? 


: rem text eingeben 

: rem wert eingeben 

: rem formatieren 

: rem summe aller werte 


faktor 
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400 
410 


420 
430 
440 
450 
460 
470 


480 
490 
500 
510 
>20 


pos. 


530 
540 
550 
560 
570 
nen 


580 
590 
600 
610 
620 
630 


640 
650 
660 
670 


680 
690 
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rem grafik zeichnen: 


graphic 1,1 : rem grafik einschalten 


rem kuchen zeichnen: 


char 1,((xh-x1)/2- len(ue$)*4)/8+1,yl/8,ue$ 


circle 1,mx,my,rx,ry 

circle 1,mx,my+15,rx,ry,90,270 
draw 1,mx-rx,my to mx-rx,my+15 
draw 1,mx+rx,my to mx+rx,my+15 


rem kucheneinteilungen zeichnen: 
for i=0 to az%-1 


w = (270+(lw+we(i))*gs)*fa : rem winkelposition 
wd = (270+(Iwtwe(i)/2)*gs)*fa : rem textposition 
x = rX*cos(w)+mx : rem x-koord. der kreis- 
y = ry*sin(w)+my : rem y-koord. 
draw 1,mx,my to x,y : rem radius einzeichnen 
a = (lwtwe(li))*gs 
if a<90 or a>270 then 710 
draw 1,x,y to x,y+14 : rem vorderansicht zeich- 
rem text zeichnen: 
x = (rxtas/2)*cos(wd)+mx : rem koordinaten berechnen 
y = (rytas/2)*sin(wd)+my 
t$ = str$(Cint(we(Ci)/(su/100))) 
t$ = right$(t$,len(t$)-1) : rem zahl isolieren 
tx$li)=tx$li)r" Marsenge : rem % anhaengen 
if x<mx then x=x-len (tx$(i))*8 : rem links oder 
if y>my then y=y+10 : rem rechts v. mp 
if x<xl or x>xh or y<yl or y>yh then 830 : rem ok? 
t$=tx$(i) : gosub 710 : rem text ausgeben 
Iw=Iwtwe(i) : rem aufaddieren 

next i 


700 rem text bei Koordinaten (x,y) ausgeben: 


Das Grafikbuch zum C16, C116 und Plus /4 177 


710 xa=(xl and 248)+8 : ya=(yl and 248)+8 
720 sshape q$,xa,ya,xatlen(t$)*8-1,yat7 
730 char 1,xa/8,ya/8,t$ 

740 sshape z$,xa,ya,xatlen(t$)*8-1,ya+7 
750 gshape a$,xa,ya 

760 gshape z$,x,y 

770 return 


FEUMDESHRHLEN ERPNECKOCKUGSE 


BIT ASZ__— __ERK 157% 
5B6C 3% Ser — A 
+‘ 1ICH ZI- 


Ban Eh ea —L- 
ibn 19% 


JER 13F# 


Mit diesem Programm können Sie maximal 12 Werte mit Ken- 
namen versehen als Ausgangswerte für ein entsprechendes Ku- 
chendiagramm statistisch verarbeiten. Sie geben nach den übli- 
chen Formalitäten (Überschrift, Anzahl der Werte), die Sie be- 
reits aus anderen Statistikprogrammen kennen, einfach die Be- 
nennung und im Anschluß daran den Wert selbst ein. Die Be- 
nennung wird durch Zeile 360 auf drei Zeichen gekürzt und 
später als Beschriftung der einzelnen Kuchenausschnitte samt 
den zugehörigen Prozentzahlen in der Grafik ausgegeben. 


Dieses Programm hat zunächst einmal die Aufgabe, einen Kreis 
durch Einzeichnung von Radien an verschiedenen Winkelposi- 
tionen zu unterteilen. Die Position der Radien hängt natürlich 
von den Prozentwerten der einzelnen Posten ab. Es stellt diese 
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Grafik zusätzlich noch 3-dimensional dar, um dem Auge beim 
Ablesen bessere Anhaltspunkte zu geben. Je nach den Ambitio- 
nen der verschiedenen Programmierer und selbstverständlich je 
nach den Ansprüchen, die an das Programm gestellt werden, 
können die einzelnen Kreisausschnitte noch in diverser Art und 
Weise schraffiert, ausgefüllt oder angefärbt werden. 


Um die Winkelpositionen der einzelnen Radien zu ermitteln, ge- 
hen wir wie folgt vor: 


Zunächst einmal interessieren die Gesamtsumme und die Anzahl 
aller Werte. Aus der Gesamtsumme (=100%) können wir nicht 
nur die Prozentanteile der einzelnen Posten berechnen, sondern 
auch die Größe der Kreisfläche (in Grad), die dieser Posten in 
- der Grafik einnehmen wird. 


Da wir normalerweise einen Kreis in 360 Grad unterteilen, stellt 
sich hier die Aufgabe eines normalen Dreisatzes: 


360 Grad entsprechen der Gesamtsumme 
Dann entsprechen wieviel Grad dem einzelnen Wert? 


Nach Adam Riese gibt uns dann die folgende Formel den Faktor 
an, mit dem wir jeden Wert multiplizieren müssen, um schließ- 
lich die Gradzahl zu erhalten: 


Faktor = 360 Grad / Gesamtsumme 


Dieser Faktor wird in obigem Programm in der Zeile 390 be- 
rechnet. 


Gradzahl = Faktor * Wert 


ist dann die Formel, die uns direkt die Anzahl der Winkelgrade 
angibt, die die Größe des Kreisausschnittes bestimmen. 


Nun stellt sich jedoch das Problem des Zeichnens. Die Darstel- 
lung eines Kreises auf unserem Grafikbildschirm nimmt uns 
freundlicherweise das Betriebssystem ab (CIRCLE-Befehl). Bei 
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der Einzeichnung der Radien jedoch sind wir auf unsere ma- 
thematischen Fähigkeiten angewiesen. 


Zu diesem Zeitpunkt spätestens sollten Sie einmal einen Blick ın 
das Kapitel über Polarkoordinaten geworfen haben, da wir hier 
darauf zurückgreifen müssen. Zur Angabe eines Punktes im Po- 
larkoordinatensystem sind danach die Entfernung des Punktes 
vom Nullpunkt und der Winkel zwischen der Verbindungslinie 
Nullpunkt-Punkt und der waagerechten x-Achse notwendig. Er- 
steres übernimmt hier die Länge des Radius, den anderen Wert 
erhalten wir durch die gewünschte Position (in Grad) des ein- 
zuzeichnenden Radius auf dem Kreis. 


In dem gerade erwähnten Kapitel wurde eine Formel zur Um- 
rechnung von Polarkoordinaten in kartesische Koordinaten vor- 
gestellt, die wir hier (leicht modifiziert durch die Addition der 
Kreismittelpunktskoordinaten) anwenden: 


X 
F 


cos(w)*l + mx 
sin(w)*l + my 


Dabei bedeuten: 


x,y: kartesische Koordinaten des gesuchten Punktes auf dem 
Kreis 

w: Winkel des Radius 

mx,my: Koordinaten des Kreismittelpunktes 


Wie Sie vielleicht sehen, wurden diese Formeln in den Zeilen 
520/530 im Programm verwendet. 


Zur dreidimensionalen Aufarbeitung der Grafik wird nun noch 
ein etwas tiefer liegender Halbkreis gezogen, der die Vorderan- 
sicht des Kuchens abgrenzt. In dieser Frontansicht müssen die 
Radien natürlich ebenfalls sichtbar sein, um den gewünschten 
Effekt zu erzeugen. Hierzu wird in der Zeile 570 (sofern der 
Kucheneinschnitt überhaupt in der Frontseite liegt) einfach eine 
Senkrechte von der Kuchen-Oberfläche zum Kuchen-Boden 
gezogen. 
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Nach diesen recht kompliziert anmutenden Prozeduren werden 
nun noch an den entsprechenden Stellen die Beschriftungen in 
die Grafik eingebracht und fertig ist der Kuchen. 


Auch bei diesem Programm sollten Sie ruhig einmal den Cursor 
in die Hand nehmen und selbst herumdoktern. Nur so erfassen 
Sie die volle Tragweite der einzelnen Anweisungen, vor allem 
aber der im Programmkopf definierten Konstanten. 


3.3 Funktionsplotter 


Wir wollen uns nun mit den sogenannten Funktionsplottern be- 
schäftigen. Sicherlich erinnern Sie sich noch an Ihre Schulzeit, 
an den Mathematikunterricht der 7., 8. und 9. Klasse und an 
Funktionen, Parabeln, Hyperbeln und andere diversen Funkti- 
onsgraphen (oh je). Sie hatten dort sicherlich mit einer Funktion 
f(x) Wertetabellen anzulegen und diese dann in ein Koordina- 
tensystem einzutragen. Bei einfachen Funktionen wie z.B. f(x)=x 
oder f(x)=x*x war dieses Einzeichnen in das Koordinatensystem 
sicherlich noch leicht zu bewältigen, wurden die Funktionen 
dann jedoch komplizierter (z.B.: f(x)=x*3+2*x*2-4*x), hatte man 
doch seine Müh’ und Not mit diesen Funktionen. 


Doch wofür haben Sie einen Computer? 


Dieser schnelle Rechner kann Werte einer jeden Funktion er- 
rechnen, ja sogar zeichnen. Mit einer unserer Hardcopy-Rou- 
tinen aus dem Kapitel 5 sollten Sie in der Lage sein, die ge- 
zeichnete Funktion auch auszudrucken, um diese dann schwarz 
auf weiß weiter zu verwerten. 


Obwohl uns eigentlich nur die grafische Funktionsauflösung in- 
teressiert, möchte ich Ihnen doch noch ein kleines Programm 
zum Anlegen von Wertetabellen vorstellen: 


10 scnelr 

20 : 

30 def fn f(x)=x*x :rem hier kann auch eine andere funktion 
stehen 
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40: 

50 input"bereich (von; bis)";bv,bb :rem eingabe berechnungsbereich 
60 : 

70 input"schrittweite NSW :rem eingabe der schrittweite 
80 : 

90 for x =bv to bb step sw rem berechnungsschleife 

100 : 

110 print "x- 

wert =";x;" funktion f(x) =";fn f(O):rem ausgebe der funktion 
120 : 

130 getkey a$ :rem auf taste warten 

140 : 

150 next x :rem schleife schliessen 

160 : 

170 end :rem ende des programmes 


Doch so ein Programm ist natürlich im Vergleich mit einem 
Funktionsplotter nur eine Spielerei, deshalb folgt im nächsten 
Kapitel eben ein solches Programm. 


3.3.1 2-D-Funktionsplotter 


100 scenclr 

110 key 8,"-10,10"+chr$(13) 
120 color 1,8,7 

130 color4,7,0:color0, 7,0 
140 : 


150 char1, 10,0, "ke 


160 char1,10,1,*" T-plotter "u 
170 char, 10,2, "sk 
180 : 

190 FS="x*x" 

200 : 

210 char1,16,5,f$ 

220 char1,0,5,"funktion f(x)=":input f$ 
e30 : 
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240 
250 
260 
270 
280 


printchr$(147);"190 f$="+chr$(34)+f$+chr$(34) 

print'"680 f$="+chr$(34)+f$+chr$(34) 

print!"690 deffn f(u)="+f$ 

print"goto 310" 
poke1319,19:poke1320,13:poke1321,13:poke1322,13:poke1323,13:po 


ke239 ‚5 


290 


end 


300 : 


310 
320 


trap 1020 
senclr 


330 3 


340 


350: s: 


360 


370 :: 


380 


390 :: 


input "grenzen des x-werts";xk,xg 
if xk>xg then 340 

input "grenzen des y-werts";yk,yg 
if yk>yg then 360 

input "schrittweite NSW 

if sw=0 then sw=.5 


400 : 


410 


input "x-koordinaten eint";xe 


420 : 


430 


input "y-koordinaten eint";ye 


440 : 


450 


print"alte grafik loeschen [j/n]":getkey |$ 


460 : 


470 


graphic1,0:if l$="j" then scnclr 


480 : 


490 


500 : 


510 
520 
530 
540 
550 
560 


mx=199/2:my=199/2 


xf=mx/xg 
yf=my/yg 


draw1,0,my to 199 ,my:draw 1,mx,O to mx, 199 


if xe=0 and ye=0 then 660 


570: 


>80 
>90 
600 


610 : 


620 


for i=0 to 199 step xe*xf 
:draw 1,1,95 to 1,104 
next 


for i=0 to 199 step ye*yf 
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630 :draw 1,95,i to 104, i 

640 next 

650 : 

660 draw1,199,0 to 199,199:box1,0,0,319,199 
670 : 

680 Fh="x*x! 

690 deffn flu)=x*x 

700 : 

710 for x=xk to xg step SW 

720 :yi=my-fn f(O)*yf 

730 :x1=(mx+x*xf) 

740 :if x=xk then x2=x1:y2=y1 

750 :if x1<O or yi<O or x2<0O or y2<O then 770 
760 :: draw1,x1,yl to x2,y2 

770 :x2=x1:y2=y1 

780 next 

790 : 

800 if L$<>"j"thend60 

810 : 

820 :char1,28, 0,"f-plotter",1 

830 schar1,25,.. 2, 10x)=", 1 

840 :char1,25, 3,f$% 

850 :char1,25, 5,"x-bereich:", 1 

860 :char1,25, 6,str&(xk)+";"+str$(xg) 
870 :char1,25, 8,"y-bereich:", 1 

880 :char1,25, 9,str$(yk)+";'"+str$(yg) 
890 :char1,25,12,"schrittweite:", 1 

900 :char1,25,13,str$(sw) 

910 :char1,25,15,"x-einteilung:", 1 

920 :char1,25,16,str$(xe) 

930 :char1,25,18,"y-einteilung:", 1 

940 :char1,25,19,str$(ye) 

950 : 

960 color 4,2 

970: 

980 getkey a$:graphicO 

990 run 

1000 : 
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1010 : 

1020 if er=20 then x=x+sw:resume next 

1030 if er=11 then graphic0:print chr$(130)+"fehler in funktion'':e 
nd 

1040 graphic0:print err$(er):end 


Dieses Programm ist, wie Sie sicherlich bemerkt haben, nicht 
dokumentiert. Das war nötig, da das Funktionsplotterprogramm 
auch auf der Grundversion des C 16/ C 116 laufen sollte und 
dann der Speicherplatz nicht ausgereicht hätte. Selbst mit dieser 
schon ziemlich optimierten Version bleiben nach dem Start und 
dem Anlegen aller Variablen nur noch magere 70 (siebzig) Bytes 
frei. Wenn Sie also dieses Programm abgetippt haben, sollten Sie 
es erst einmal abspeichern, den schon ein paar zuviel getippte 
Buchstaben könnten den BASICspeicher an die Grenzen seines 
Fassungsvermögens bringen. 


Sollten Sie vorhaben dieses Programm noch ein wenig zu ver- 
schönern, empfehle ich Ihnen, alle Zeilen in denen nur Doppel- 
punkte stehen, einfach zu löschen. Diese Zeilen werden vom 
Programm nicht angesprungen. Wollen Sie allerdings das Pro- 
gramm "RENUMBERN", müssen Sie auch in den Zeilen 240- 
270 die Zeilennummern und GOTO-Adressen innerhalb der 
Anführungsstriche umändern, da der RENUMBER-Befehl diese 
natürlich nicht berücksichtigen kann. 


Um Ihnen das Lesen des Programms dennoch zu vereinfachen, 
folgt hier nun die fehlende Dokumentation: 


100 Löschen des Bildschirms 

110 Umbelegen der HELP-Taste (wird bei der 
Grenzwerteingabe gebraucht) 

120,130 Setzen der Farben. Gelb für Schrift; Blau für 
Rahmen & Hintergrund 

150-170 Ausgabe des Titels 

190 Alte Funktion in f$ 


210,220 Eingabe der neuen Funktion 
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240-290 


310 
320 
340-370 


380,390 
410,430 


450 
470 


490 
510,520 
540 
560 


580-600 
620-640 
660 
680 
690 
710 
720 


730 
740 


750 
760 
770 


780 
800 


Übernehmen der neuen Funktion per Tastatur- 
buffermethode 

Bei Fehlermeldung Sprung nach 1020 
Bildschirm löschen 

Eingabe der X- und Y-Grenzwerte mit Über- 
prüfung auf Gültigkeit 

Eingabe der Schrittweite. Bei 0 wird die 
Schrittweite zu 0.5 

Eingabe der Koordinateneinteilung von X- 
und Y-Achse 

Fragen, ob alte Funktion gelöscht werden soll 
Einschalten der Grafik und event. Löschen 
derselben 

Festlagen des Mittelpunktes der Funktion 
Festlegen des X- und Y-Umrechnungsfaktors 
Zeichnen des Koordinatensystems 

Falls keine Koordinateneinteilung angegeben, 
Sprung nach 660 

Einteilen der X-Achse 

Einteilen der Y-Achse 

Zeichnen einer Trennlinie zwischen Funktion 
und Wertangaben und Umrahmen der Funktion 
Funktion in f$ 

Definition der Funktion mittels DEF FN f(x) 
Schleife vom kleinsten Grenzwert zum größten 
mit der eingegebenen Schrittweite 

Umrechnen der Y-Koordinate in das Format 
des Plotters 

Dasselbe mit der X-Koordinate 

Überprüfen, ob es sich um den ersten Schlei- 
fenwert handelt 

Überprüfen, ob die Koordinaten im erlaubten 
Bereich liegen 

Einzeichnen der Koordinaten durch Verbinden 
des letzten Wertes mit der neuen K.oordinate 
Merken der letzten Koordinaten 
Berechnungsschleife schließen 

Falls Grafik vorher nicht gelöscht war, Über- 
springen der Beschriftungsteile 
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820-940 Beschriften der Grafik mit allen angegebenen 
Werten 

960 Rahmenfarbe auf Weiß, um anzuzeigen, daß 
die Funktion fertig gezeichnet ist 

980 Auf Tastendruck warten und auf den Text- 
bildschirm schalten 

990 Erneut starten 

1020 Falls ein DIVISION BY ZERO ERROR auf- 
tritt, Rechenwert erhöhen und erneut probie- 
ren 

1030 Falls ein Fehler in der Funktion auftritt, diese 
melden und stoppen 

1040 Jeden anderen Fehler anzeigen und stoppen 


Ich hoffe, daß Ihnen der Programmaufbau nun klarer ist, daher 
werde ich nun die Beschreibung dieses Programmes vorstellen 


Sie starten das Funktionsplotterprogramm ganz normal mit RUN. 
Danach erscheint ein kleines Titelbild und die zuletzt berechnete 
Funktion. Sie können diese dann durch Drücken von RETURN 
übernehmen oder eine neue Funktion f(x) eingeben. Dies ge- 
schieht in der üblichen BASIC-Syntax, also statt: 


2x 
fe en 
1/x 


schreiben Sie nun: 
f(x)= (2*x)/(1/x) 


Sollten Sie Schwierigkeiten mit der Eingabe der korrekten For- 
mel haben, empfiehlt es sich, im Handbuch auf den Seiten 183 
bis 189 und 210 die wichtigsten Sachen noch einmal nach- 
zulesen. 


Haben Sie zum Abschluß der Formeleingabe RETURN ge- 
drückt, so wird die Formel mit Hilfe der sog. "Tastaturbuffer- 
Methode" in drei BASIC-Zeilen übernommen. Doch zurück zu 
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unserem Programm. Dieses verlangt nämlich jetzt von Ihnen die 
Eingabe der "GRENZEN DES X-WERTS". Sie sollen also ange- 
ben, von welchem Wert an die Berechnung beginnen und bis zu 
welchem Wert diese durchgeführt werden soll. Ihre Eingabe 
könnte also lauten: -10,10. Um Ihnen Tipparbeit zu ersparen, 
habe ich die HELP-Taste (F-8) auf diese beiden Werte pro- 
grammiert. Es ist lediglich ein Druck auf diese Taste erforder- 
lich, um mit diesen Werten zu operieren. Parallel verhält es sich 
mit der Eingabe der "GRENZEN DES Y-WERTS". Auch hier 
besteht die Möglichkeit, die HELP-Taste zu benutzen. Nun ist 
die (Berechnungs-)SCHRITTWEITE von Ihnen gefragt. Sie kön- 
nen diese Frage einfach durch Druck auf die RETURN-Taste 
überspringen. Das Programm nimmt dann den Wert 0.5 als 
Schrittweite an. Wünschen Sie, daß ein Koordinatensystem ein- 
gezeichnet wird, müssen Sie bei den folgenden beiden Fragen 
die Einteilung der Koordinaten-Achsen angeben. Natürlich kön- 
nen Sie auch auf das Koordinatensystem verzichten, indem Sie 
bei beiden Fragen nur die RETURN-Taste drücken. Schließlich 
möchte der Funktionsplotter noch von Ihnen "wissen", ob die 
zuletzt berechnete Funktion erst vom Grafik-Bildschirm gelöscht 
werden soll. Geben Sie also J [Ja] oder N [Nein] ein. 


Damit ist Ihre Arbeit erledigt. Sie können sich nun in Ihren 
Sessel zurücklegen und zuschauen, wie der Funktionsplotter die 
eingegebene Funktion berechnet. Sind dann alle Berechnungen 
abgeschlossen, werden im rechten Teil des Bildschirms alle 
wichtigen Daten eingeblendet. Sollten Sie also die Funktion aus- 
drucken oder abspeichern wollen, wissen Sie immer, was Sie 
dort für eine Grafik vorliegen haben. Schließlich schaltet der 
Bildschirmrahmen noch auf Weiß um. Auf Knopfdruck startet 
der Funktionsplotter dann erneut. 


Es kann natürlich vorkommen, daß eine Funktion fehlerhaft von 
Ihnen eingegeben wurde - doch keine Angst, der Computer 
stürzt nicht ab. Er zeigt Ihnen durch eine kleine Fehlermeldung, 
daß ein Fehler in der Funktion vorliegt. Auch der so gefürchtete 
"DIVISION BY ZERO ERROR" wird abgefangen. Das Pro- 
gramm erhöht den Rechenwert und führt die gleiche Berech- 
nung dann mit dem neuen Rechenwert durch. Selbst wenn Sie 
spaßeshalber eingeben f(x)=x/0, wird nichts passieren. 
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Hier nun zur Verdeutlichung ein Ergebniß des Funktionsplotters: 





3.3.2 3-D-Funktionsplotter 


100 scenclr 

110 key 8,"-10,10'"+chr$(13) 
120 color 1,8,7 

130 color4,7,0:color0,7,0 
140 : 


150 char1, 10,0, Mekka 


160 char1,10,1,9* 3:4 f-plotter *"" 
170 char1, 10,2, "eek 
180 : 

190 f$="6*lsin(.31*x)*sin(.31*y))-9 
200 : 

210 char1,9,5,f$ 

220 char1,0,5,"f(x,y)=":input f$ 
230.» 
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240 printchr$(147);"190 f$="+chr$(34)+f$+chr$(34) 
250 print"610 deffn f(u)="+f$ 

260 print"goto 300" 

270 poke 1319, 19:poke1320,13:poke1321,13:poke1322,13:poke239,4 
280 end 

290 : 

300 trap 870 

310 scncelr 

320 : 

330 input "grenzen des x-wert";xk,xg 

340 :if xk>xg then 330 

350 input "grenzen des y-wert'";yk,yg 

360 :if yk>yg then 350 

370 input "grenzen des z-wert";zk,zg 

380 :if zk>zg then 370 

390 input "x-schrittweite";sx 

400 :if sx=0 then sx=.4 

410 input "y-schrittweite!;sy 

420 :if sy=0 then sy=1 

430 input"aufsichtswinkel [1-89]";sw 

440 :if sw<=0 or sw>=89 then sw=55 

450 : 

460 print"'verdecktes loeschen":getkey v$ 
470: 

480 print"koordinatensystem":getkey k$ 

490 : 

500 print"grafik loeschen!!:getkey 1$ 

>10 : 

520 graphic1,0:if 1$="j" then scnclr 

330 3 

540 gr=3.14159265/180:rem pi/180 

550 si=sin(sw*gr):co=cos(sw*gr) 

560 fx=abs(319/(xg-xk)) 

570 fz=abs(199/(zg-zk)) 

580 fy=abs((fz*(zk/co)-(zg/si))/yg-yk) 

59 : 

600 : 

610 deffn flu)=6*lsinl.31*x)*sin(.31*y))-9 
620 deffn xr(u)=x*fx+y*fy*co+160 

630 deffn yr(u)=199-(fz*fn flO)+y*fy*si+r100) 
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640 : 

650 :for y=yg to yk step -sy 

660 ::for x=xk to xg step sx 

670 ::yi=fn yr(0) 

680 ::x1i=fn xr(0) 

690 ::if x=xk then x2=x1:y2=y1 

700 ::if x1<0O or yi<O or x2<0 or y2<O then 730 
710 zz:if v$="j" then gosub 910 

720 ::draw1,x1,y1 to x2,y2 

730 ::x2=x1:y2=y1 


740 z:next x 
750 :next y 
T&D : 


770 if k$<>"j" then 830 

780 :draw 1,0,100 to 319,100 

790 :draw 1,160,0 to 160,199 

800 :draw 1,160,100 to 100; 90-sw 

810 :draw 1,160,100 to 100;270-sw 

820 : 

830 color 4,2 

840 : 

850 getkey a$:graphicO:run 

860 : 

870 if er=20 then resume 740 

880 if er=11 then graphic0:print chr$(147)+chr$(130)+"fehler in 
funktion":end 

890 graphicO:print err$(er):stop 

900 : 

910 if y2=y1 then 940 

920 ify2>yithenfori=yiltoy2:draw0,x2,y2tox1,i:next:box0,x2,y2,x1,y2 
+50, ,1 | 

930 ifyi>y2thenfori=y2toy1:draw0,x1,yito x2,i:next:box0,x2,y1,x1,y 
1450,51 

940 return 


Auch hier die aus Speicherplatzgründen fehlende Dokumenta- 
tion. Hierbei möchte ich nur auf die wichtigsten Eigenschaften 
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und Änderungen eingehen, da der 3-D- Funktionsplotter auf 
dem 2-D-Funktionsplotter aufbaut. 


100-430 (siehe Dokumentation des 2-D-Funktionsplot- 
ters). 

460-500 Diverse Eingaben für Löschen, verdeckte Li- 
nien, Koordinatensystem 

540 Umrechnungsfaktor Grad im Radiant 

550 Scalierter Sinus und Kosinus 

560-580 Berechnung der X-,Y-,Z-Faktoren 

610-630 Definition 

650 Y-Schleife rückwärts 

660 X-Schleife vorwärts 

670-750 siehe Dokumentation des 2-D-Funktionsplot- 
ters). 

710 Falls das Löschen verdeckter Linien erwünscht 
ist, zum Unterprogramm springen 

770-810 Koordinatensystem 

830-890 (siehe Dokumentation des 2-D-Funktionsplot- 
ters). 

910 Falls die zuletzt gezeichnete Linie waagerecht 
verlief, nur den unteren Block löschen 

920 Falls die letzte Linie nach unten gezeichtet 


wurde, löschen des linken Dreiecks bis zur 
Waagerechten. Danach Löschen des tieferen 
Blocks 

930 Fals die letzte Linie nach oben gezeichnet 
wurde, löschen des rechten Dreiecks bis zur 
Waagerechten. Danach löschen des tieferen 
Blocks 

940 Rückkehr zum Hauptprogramm 


Beschreibung des 3-D-Funktionsplotters: 


Der 3-D-Funktionsplotter ist wie schon erwähnt "nur" eine Wei- 
terentwicklung des 2-D-Funktionsplotters. Daher sind viele Teile 
ähnlich oder identisch. So auch die auf "-10,10" programmierte 
HELP-Taste. 
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Das Programm fragt nach dem Start durch RUN nach der 
Funktion f(x,y). Diese ist in der Üblichen BASIC-Syntax ein- 
zugeben. Die Funktion wird dann mit der Tastaturpufferme- 
thode übernommen. Es folgen die schon bekannten Fragen nach 
Grenzen der einzelnen Achsen und der Berechnungsschrittweite. 
Neu ist jedoch die Frage nach dem Aufsichtswinkel. Hier kön- 
nen Sie eingeben, mit welchem Kippwinkel die Grafik berechnet 
werden soll. Eingabewerte von 1-89 sind erlaubt. Bei einer 
Falscheingabe nimmt das Programm einen Winkel von 55 Grad 
an. Übrigens sind nach meiner Meinung nur Eingaben von 30- 
60 Grad interessant. 


Auch hinzugekommen ist die Frage nach dem Löschen verdeck- 
ter Linien. Um diesen Programmpunkt zu verstehen, sollten Sie 
sich einige der abgedruckten Grafiken ansehen. Die Frage nach 
dem Löschen der alten Grafik erklärt sich von selbst, wie auch 
die Frage nach dem Koordinatensystem. Letzteres wird selbst- 
verständlich dreidimensional eingezeichnet und zwar mit dem 
Befehl: "DRAW xI,yl to Länge ; Winkel", also mit Hilfe des 
Polarkoordinatensystems. 


Jetzt können Sie sich in Ihren Sessel zurücklehnen und zusehen, 
wie die Funktion geplottet wird. Je nachdem, was für eine 
Schrittweite eingegeben und ob verdeckte Linien gelöscht wer- 
den sollen oder nicht, dauert das Zeichen einer Funktion 2-200 
Minuten. Die Grafiken können dann mittels der vorgestellten 
Routinen im Kapitel 5 ausgedruckt oder gespeichert werden. 


Um Sie von der Leistungsfähigkeit des Programmes zu überzeu- 
gen, haben wir Ihnen noch ein paar Grafiken abgedruckt. 


Zuerst eine typische Hardcopy einmal mit und anschließend 
ohne Koordinatensystem, dann zwei Hardcopies, an denen wir 
das Prinzip der Hinterschneidungen verdeutlichen möchten und 
zu guter Letzt noch zwei Hardcopies, die keinen tieferen Sinn 
haben, die es aber dennoch Wert sind, ausgedruckt zu werden. 
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4. Ein- und Ausgabe von Grafiken 


4.1 Einführung 


In diesem letzten Kapitel unseres Buches wollen wir Ihnen nun 
noch einige in Assembler geschriebene Utilities anbieten, die die 
Ein- und Ausgabe der Grafiken betrifft. Das wären zunächst 
Hardcopyroutinen für die gängigsten Drucker, anschließend auch 
noch ein Screen-Utility-Programm, das das Abspeichern und 
Laden der Textgrafik als auch der Hiresgrafik zum Kinderspiel 
werden läßt. Diese Programme können Sie natürlich in Ihre 
eigenen Programme einbauen. Zu diesem Zweck befindet sich 
hinter dem für die "Könner" unter Ihnen, abgedruckten As- 
semblerlisting auch der dazugehörige BASIC-Lader. 


4.2 Hardcopyroutinen 


Im folgenden ist nun das Assemblerlisting der 1. Hardcopyrou- 
tine abgedruckt. Dieses Programm erzeugt eine Hardcopy, also 
einen Bildschirmausdruck, auf allen Star- und kompatiblen 
Druckern. Im Anschluß daran finden Sie die BASIC-Laderoutine 
für Epsondrucker. Sollten Sie einen grafikfähigen Drucker be- 
sitzen, mit dem die nachstehende Routine nicht funktioniert, so 
können Sie die in Ihrem Handbuch entsprechenden Codes zum 
Einschalten der Grafik mit doppelter Dichte in die Zeile 840, 
rückwärts aufgezählt, eintragen. Der Anzahl der Codes entspre- 
chend müssen Sıe dann natürlich auch den Wert, mit dem das 
Y-Register in Zeile 630 geladen wird, angleichen. 


Hier nun das Assemblerlisting, direkt dahinter der BASIC-Lader 
zunächst für die Star, anschließend auch für alle Epsondrucker: 
4.2.1 Hardcopyroutine für Star-Drucker 

110: 05f5 .opt p,oo 


120:  05f5 *= 1525 
130: 
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140: 9491 chkcom = 59491 

150: 9484 getbyt = $9484 

160: 05f5 20 91 94 Jsr chkcom 

160: 05f8 20 84 9d sr getbyt 

160: 0O5fb eO 00 cpx #0 

160: 0O5fd dO 03 bne skip 

110: „::0SEf..20: e7. 0% jsr ctg 

180: 0602 20 91 94 skip jsr chkcom 

180: 0605 20 84 9d jsr getbyt 

180: 0608 8a txa 

180: 0609 48 pha 

190: 060a 20 91 94 jsr chkcom 

190: 060d 20 84 9d jsr getbyt 

200: a 

210: 0610 a9 00 Ida #<8192 

210: 0612 a0 20 \dy #>8192 

220: 0614 85 fa sta %fa 

220: 0616 84 fb sty %fb » basis adresse setzen 
230: Z 

240: 0618 68 pla 

240: 0619 48 pha 

250: 06la a0 01 ldy #1 ; sekundaeradresse 
260; .,.,. D6le: 20bantf jsr $ffba ; setpara 

270: 0O61f a9 00 Ida #0 

280: 0621 20 bd ff jsr $ffbd ; setnam 

290: 0624 20 c0 ff jsr .‚$ffe0-: ı;.open 

300: 0627 68 pla 

310: 0628 48 pha 

320: 0629 aa tax 

330: 062a 20 c9 ff SP. STEH. „3, Ehkout 

340: s 

350: 062d a9 1b Ida #27 ; escape "1" senden, 
360... 0627..20.d2 ff jsr $ffd2 ; dadurch zeilenabstand 
370: 0632 a9 31 Ida #1" ‚ setzen 

380: 0634 20 d2 ff jsr $ffd2 

390: ; 

400: 0637 20 54 06 jsr hardcopy ; hardcopy drucken 
410: : 

420: 0O63a a9 Ib Ida #27 ; escape "2" senden, 


430: 063c 20 d2 ff jsr $ffd2 ; dadurch zeilenabstand 
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440: 063f a9 32 Ida #2" ; normalisieren 

450: 0641 20 d2 ff jsr $ffd2 

460: 0644 20 cc ff isr $ffce ; clrch 

470: 0647 68 pla 

480: 0648 4c c3 ff jmp $ffc3 ; close 

490: Hi 

500: 064b 00 bytes .byt %00000000 

510: 064c 00 .byt %00000000 

520: 064d 00 .byt %00000000 

530: 064e 00 .byt %00000000 

540: 064f 00 .byt %00000000 

550: 0650 00 .byt %00000000 

560: 0651 00 .byt %00000000 

570: 0652 00 .byt %00000000 

580: : 

590: 0653 00 spalte .byt 0 ; spaltenzaehler 

600: . 

610: 0654 a2 18 hardcopy ldx #24 ‚ zeilenzaehler setzen 
620: 0656 a9 Od lab1 Ida #13 

620: 0658 20 d2 ff jsr $ffd2 ; zeilenvorschub 

630: D065b a0 04 Idy #4 

640: 065d b9 84 06 loop Ida drcktab,y ; steuerzeichen 
650: 0660 20 d2 ff jsr $ffd2 ; ausgeben 

660: 0663 88 dey 

660: 0664 10 f7 bpl loop 

670: ; 

680: 0666 a9 27 Ida #39 ; spaltenzaehler 

690: 0668 dd 53 06 sta spalte ; setzen 

700:  066b a0 00 lab2 Idy #0 ; y-register loeschen 
710:  0O66d 20 89 06 jsr sendacht ; 8ter block ausgeben 
720: 0670 a5 fa Ida %fa » $fa/$fb = $fa/$fb + 8 
730: 0672 18 ce 

740: 0673 69 08 adc #8 

750: 0675 90 02 bec ok1 

760: 0677 e6 fb inc $fb 

770: 0679 85 fa ok1 sta $%fa 

780: 067b ce 53 06 dec ” spalte ; spalte=spalte-1 
790: 067e 10 eb bpl lab2 


800: 0680 ca dex 
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810: 0681 10 d3 bpl Lab1 

820: 0683 60 rts 

830: # 

840: 0684 02 80 4c drcktab .byt 2,128,76,27,9 
850: . 

860: ;’** drehen und setzen eines ter blocks *** 
870: ® 

880: 0689 Ba sendacht txa 

880: 068a 48 pha 

880: 068b 98 tya 

880: 068c 48 pha 

890: 068d a9 80 Ida #%80 

900: 068f Bd c6 06 sta maske 

910: 0692 a2 07 Idx #7 


920: 0694 a0 00 hrdloop1 Ildy #0 
930: 0696 bi fa hrdloop2 Ida ($fa),y 


940: 0698 2d c6 06 and maske 
950:  069b 38 sec 

960: 069c dO 01 bne ok2 

970: 069e 18 clc 

980: 069f Ze 4b 06 ok2 rol bytes,x 
990: O6a2 cd iny 

1000: 0633 cO 08 cpy #8 

1010: 06a5 dO ef bne hrdloop2 
1020: 06a7 4e c6 06 Isr maske 
1030: O6aa ca dex 

1030: 0O6ab 10 e7 bpl hrdloop1 
1040: : | 

1050: O6ad a2 07 Idx #7 ; bytes ausgeben 
1060: O6af bd 4b 06 outlab Ida bytes,x 
1070: 06b2 :20 .d2 ff jsr $ffd2 
1070: 06b5 20 d2 ff jsr $ffd2 
1070: 06b8 a9 00 Ida #0 

1070: O6ba 9d 4b 06 sta bytes,x 
1080: O6bd ca dex 

1090: Oöbe 10 ef bpl outlab 
1100: 06c0 68 pla 

1100: 06c1 a8 tay 


1100: 06c2 68 pla 
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1100: 06c3 aa tax 

1100: 06c4 60 rts 

1110: ® 

1120: 06c5 00 temp .byt 0 

1130: 06c6 00 maske .byt 0 

1140: s 

1150: scopy text --> grafik 
1160: s 

1170: 0c00 video = 3072 
1180: 2000 grafik = 8192 
1190: dOOO char = $d000 
1200: : 

1210: 06c7 a9 00 ctg Ida #<video 
1210: 06c9 a0 0Oc l\dy #>video 
1220: Oöcb 85 61 sta %61 
1220: O6cd 84 62 sty %62 
1230: O6ct a9 00° Ida #<grafik 
1230: 06d1 a0 20 l\dy #>grafik 
1240: 06d3 85 63 sta %63 
1240: 0645 84 64 sty %64 
1250: 06d7 78 sei 

1250: 06d8 a9 33 Ida #51 
1250: 0O6da 85 01 sta 1 

1260: Oödc a0 04 I\dy #4 
1260: Oöde 8c 5a 07 sty ykord 
1270: 0O6e1 a0 00 Idy #0 
1280: 06e3 a2 00 Idx #0 
1290: O6e5 b1 61 cclabO Ida ($61),y ; zeichen laden 
1291: 06e7 c9 80 cmp #128 
1292: 06e9 90 Ob bcec ccskip1 
1292: O6eb 29 7f and #127 
1292: O6ed 48 pha 

1293: O6ee a9 ff Ida #255 
1293: 06f0 8d 5b 07 sta flag 
1293: 06f3 4c fc 06 jmp ccskip2 
1294: 06f6 48 ccskipl pha 

1294: 06f7 a9 00 Ida #0 
1295: 06f9 8d 5b 07 sta flag 
1296: - 


1300: DO6fc 68 ccskip2 pla 
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1300: O6fd 85 65 sta %65 
1300: O6ff 48 pha 

1310: 0700 a9 00 Ida #0 
1310: 0702 85 66 sta $66 
1320: 0704 68 pla 

1330: 0705 Oa asl 

1330: 0706 26 66 rol $66 
1340: 0708 Oa asl 

1340: 0709 26 66 rol $66 
1350: 070b Da asl 

1350: 070c 26 66 rol $66 
1360: 070e 85 65 sta %65 
1370: 0710 a9 00 Ida #<char 
1370: 0712 18 clc 

1370: 0713 65 65 adc %65 
1370: 0715 85 65 sta %65 
1380: 0717 90 02 bec ccok1 
1380: 0719 e6 66 inc $66 
1390: 071b a9 dO ccok1 Ida #>char 
1390: 071d 18 clc 

1390: 071e 65 66 adc %66 
1400: 0720 85 66 sta %66 
1410: ’ 

1420: 0722 a0 00 Idy #0 
1430: 0724 b1 65 cclabl Ida ($65),y 
1430: 0726 4d 5b 07 eor flag 
1430: 0729 91 63 sta ($63),y 
1440: 072b c8 ! iny 

1440: 072c cO 08 cpy #8 
1440: 072e dO f4 bne cclab! 
1450: 0730 a0 00 | Idy #0 
1460: 0732 e6 61 ine $61 
1460: 0734 dO 02 bne ccok2 
1460: 0736 e6 62 inc %62 
1470: 0738 a5 63 ccok2 Ida $%63 
1470: 073a 18 ele 

1470: 073b 69 08 adc #8 
1470: 073d 85 63 sta %63 
1480: 073f 90 02 bec ccok3 


1480: 0741 e6 64 inc $64 
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1490: 0743 ca ccok3 dex 

1490: 0744 dO 9f bne cclabO 
1510: 0746 ac 5a 07 ldy ykord 
1510: 0749 88 dey 

1510: 074a fO 08 beq skip! 
1520: 074c 8c 5a 07 sty ykord 
1520: 074f a0 00 Idy #0 
1520: 0751 4c e5 06 jmp cclabO 
1530: 0754 a9 77 skip! Ida #119 
1530: 0756 85 01 sta 1 
1530: 0758 58 cli 

1530: 0759 60 rts 

1540: 2 

1550: 075a 00 ykord .byt 0 
1560: 075b 00 flag .byt 0 
105f5-075c 

no errors 


Hier nun der dazugehörige BASIC-Lader: 


100 rem KRARKKKKKHHT IT TI HK TI TI A N I I I I KU a a a 


110 rem *** Kr 
120 rem *** Kr 
130 rem *** hardcopy star Ku 
140 rem *** sg/sd/sr 10/15 wir 
150 rem Hr nun nn nn nun nn nen Ber 
160 rem *** Kr 
170 rem Wr Te Te a a a a a a a ı a 
180 : 


190 for x=1525 to 1882 

200 read a$:a=dec(a$):p=pta:poke x,a 

210 next x 

220 : 

230 if p<>2525424 then print "fehler in datas !!!";end 
240 print "ok" 

250 end 

260 : 
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270 rem assemblerdatas 

280 : 

290 data 20,91,94,20,84,9d,e0,00,d0,03,20 
300 data c7,06,20,91,94,20,84,9d,8a,48,20 
310 data 91,94,20,84,9d,39,00,20,20,85,fa 
320 data 84,fb,68,48,30,01,20,ba,ff,a9,00 
330 data 20,bd,ff,20,c0,ff,68,48,aa,20,c9 
340 data ff,a9,1b,20,d2,ff,a9,31,20,d2,ff 
350 data 20,54,06,39,1b,20,d2,ff,a9,32,20 
360 data d2,ff,20,cc,ff,68,4c,c3,ff,00,00 
370 data 00,00,00,00,00,00,00,32,18,29,0d 
380 data 20,d2,ff,a0,04,b9,84,06,20,d2,ff 
390 data 88,10,f7,a9,27,8d,53,06,30,00,20 
400 data 89,06,a5,fa,18,69,08,90,02,e6,fb 
410 data 85,fa,ce,53,06,10,eb,ca,10,d3,60 
420 data 02,80,4c,1b,09,8a,48,98,48,a9,80 
430 data 8d,c6,06,a2,07,a0,00,b1,fa,2d,c6 
440 data 06,38,d0,01,18,3e,4b,06,c8,c0,08 
450 data dO,ef,4e,c6,06,ca,10,e7,a2,07,bd 
460 data 46,06,20,d2,ff,20,d2,ff,a9,00,9d 
470 data 4b,06,ca,10,ef,68,a8,68,aa,60,00 
480 data 00,39,00,30,0c,85,61,84,62,39,00 
490 data a0,20,85,63,84,64,78,29,33,85,01 
500 data a0,04,8c,5a,07,30,00,a2,00,b1,61 
510 data c9,80,90,06,29,7f,48,a9,ff,8d,5b 
520 data 07,4c,fc,06,48,39,00,8d,5b,07,68 
530 data 85,65,48,39,00,85,66,68,0a,26,66 
540 data 0a,26,66,04,26,66,85,65,39,00,18 
550 data 65,65,85,65,90,02,e6,66,29,d0,18 
560 data 65,66,85,66,20,00,b1,65,4d,5b,07 
570 data 91,63,c8,c0,08,d0,f4,a0,00,e6,61 
580 data d0,02,e6,62,25,63,18,69,08,85,63 
590 data 90,02,e6,64,ca,d0,9f,ac,5a,07,88 
600 data f0,08,8c,53,07,20,00,4c,e5,06,29 
610 data 77,85,01,58,60 
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4.2.2 Hardcopyroutine für Epson-Drucker 


Die folgende Routine entspricht der obigen, nur daß durch sie 
Epson-Drucker angesteuert werden. 


10 forx=0 to 7:reada$:ifa$="-1"then end 
20 a=dec(a$) 

30 s=s+ta 

40 poke 1525 +x+tz,a:next 

50 read b:if b<>s then 70 

60 x=0:z=z+8:5=0:goto 10 

70 print"fehler in zeile'peek(66)*256+peek(65):end 
80 : 

2000 data20,91,94,20,84,9d,e0,00, 870 
2010 datad0,03,20,c8,06,20,91,94, 774 
2020 data20,84,9d,83,48,20,91,94, 856 
2030 data20,84,9d,a9,00,a0,20,85, 815 
2040 datafa,84,fb,68,48,20,01,20, 1002 
2050 databa,ff,a9,00,20,bd,ff,20, 1118 
2060 datac0,ff,68,48,aa,20,c9, ff, 1281 
2070 dataa9,1b,20,d2,ff,a9,31,20, 943 
2080 datad2,ff,20,54,06,29,1b,20, 815 
2090 datad2,ff,a9,32,20,d2,ff,20, 1213 
2100 datacc,ff,68,4c,c3,ff,00,00, 1089 
2110 data00,00,00,00,00,00,ff,a2, 417 
2120 data18,39,0d,20,d2,ff,a0,05, 868 
2130 datab9,84,06,20,d2,ff,88,10, 972 
2140 dataf7,a9,27,8d,53,06,a0,00, 845 
2150 data20,8a,06,a5,fa,18,69,08, 728 
2160 data90,02,e6,fb,85,fa,ce,53, 1299 
2170 data06,10,eb,ca,10,d3,60,02, 784 
2180 data80,02,2a,1b,09,8a,48,98, 570 
2190 data48,29,80,8d,c7,06,22,07, 884 
2200 dataa0,00,b1,fa,2d,c7,06,38, 893 
2210 datad0,01,18,3e,4b,06,c8,c0, 768 
2220 data08,d0,ef,4e,c7,06,ca,10, 956 
2230 datae7,a2,07,bd,4b,06,20,d2, 912 
2240 dataff,20,d2,ff,a9,00,9d,4b, 1153 
2250 data06,ca,10,ef,68,a8,68,aa, 1009 
2260 data60,00,00,29,00,a0,0c,85, 570 
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2270 data61,84,62,39,00,20,20,85, 821 
2280 data63,84,64,78,39,33,85,01, 805 
2290 dataa0,04,8c,5b,07,20,00,a2, 724 
2300 data00,b1,61,c9,80,90,0b,29, 799 
2310 data7f,48,a9,ff,8d,5c,07,4c, 939 
2320 datafd,06,48,29,00,8d,5c,07, 740 
2330 data68,85,65,48,29,00,85,66, 814 
2340 data68,0a4,26,66,02,26,66,0a, 414 
2350 data26,66,85,65,29,00,18,65, 668 
2360 data65,85,65,90,02,e6,66,29, 982 
2370 datad0,18,65,66,85,66,a0,00, 830 
2380 datab1,65,4d,5c,07,91,63,c8, 898 
2390 datac0,08,d0,f4,a0,00,e6,61, 1139 
2400 datad0,02,e6,62,35,63,18,69, 931 
2410 data08,85,63,90,02,e6,64,ca, 918 
2420 datad0,9f,ac,5b,07,88,f0,08, 1021 
2430 data8c,5b,07,30,00,4c,e6,06, 710 
2440 dataa9,77,85,01,58,60,01,00, 607 
2450 data00,00,00,00,00,00,00,00, 0,-1 


Nun ein paar Worte zur Funktionsweise des Programms oder 
vielmehr der beiden Programme, gerichtet an diejenigen unter 
Ihnen, die sich für die Assemblerprogrammierung interessieren 
sollten. Sollten Sie nicht zu diesen Leuten gehören, möchten aber 
dennoch einmal die Assemblerprogrammierung erlernen, so kann 
ich an dieser Stelle auf das Maschinensprachebuch zum C16, 
C116 und Plus/4 verweisen, mit dem Sie wohl den Einstig in die 
Assemblerprogrammierung spielend schaffen sollten. 


Das Programm ist in der Lage, wahlweise Textgrafik oder auch 
Hiresgrafik auszudrucken. Das besondere bei diesem Programm 
ıst aber, daß sowohl Text als auch Grafik über dieselbe Routine 
ausgedruckt werden. Das ist deshalb möglich, weil der Text vor- 
her in die hochauflösende Grafik kopiert wird. Dabei wird fol- 
gendermaßen vorgegangen: Zunächst wird ermittelt, welches 
Zeichen sich unter der laufenden Adresse befindet. An- 
schließend wird überprüft, ob der Bildschirmcode dieses Zei- 
chens oberhalb 128 liegt, also ob dieses Zeichen revers ist, da 
der Charactergenerator ja nicht, wie das z.B. beim Commodore 
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64 oder Commodore 128 der Fall ist, die reversen Zeichen bein- 
haltet, sondern dieses beim C16, C116 und Plus/4, der Video- 
controller darstellt. 


Aufgrund dessen wird ein Flag (0 oder 255) gesetzt, mit dem 
später, beim Schreiben in die hochauflösende Grafik, eine 
Exclusive-Oder-Verknüpfung durchgeführt wird, woraus wei- 
terhin eine korrekte Wiedergabe auch aller reversen Zeichen er- 
folgt. 


Das eigentliche Kopieren geschieht dadurch, daß der Wert des 
aktuellen Zeichens mit 8 multipliziert wird. Danach wird die 
Adresse des Chargenerators auf den Wert, der sich durch die 
vorhergehende Operation ergab, noch dazuaddiert, und wir er- 
halten einen Zeiger auf das Zeichen, das wir in die hochauflö- 
sende Grafik kopieren möchten. Alles weitere stellt nun auch 
kein Problem mehr da, da uns die Anordnung der Bytes inner- 
halb der hochauflösenden Grafik, welche uns ja sonst beim 
schnellen Programmieren mehr hinderte als half, da ja die An- 
ordnung der Bytes im Chargenerator genau dieselbe ist. 


Was uns nun noch zu tun bleibt, ist eine Hardcopy des hoch- 
auflösenden Bildschirms anzufertigen, und unser Ergebnis kann 
sich sehen lassen: Eine Hardcopy des Textbildschirms in, man 
wird es nicht leugnen können, wirklich exzellenter Form, die 
alle commodorespezifischen Sonderzeichen und Steuerzeichen 
schwarz auf weiß auf’s Papier bringt. 


Nun gilt es nur noch, diese Hardcopyroutine anwenden zu kön- 
nen. Dies ist wesentlich einfacher, als Ihnen vielleicht die Funk- 
tionsweise der Hardcopyroutine vorgekommen sein sollte. Der 
Aufruf der Routine geschieht nämlich wie folgt: 

sys 1536,bildschirmmodus,gerät,logfil 


Wobei folgende Parameter verwendet werden: 


bildschirmmodus: 0, für Textgrafik 
l, für Hiresgrafik 
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gerät: die Geräteadresse des Druckers (4) 
logfil: die logische Filenummer (0-14 


4.2.3 Posterhardcopy für Star-Drucker 
Anschließend haben wir für Sie noch einen Leckerbissen vorbe- 
reitet, sofern Sie über einen Star-Drucker verfügen. Mit den 


folgenden 2 Routinen sind Sie nämlich in der Lage, Poster von 
einer Größe von 3*2 Seiten zu erstellen. 


10 rem KKRKKKKKHTTT TI I KH IT a a a 


20 rem *** “k% 
S3D-rem **# poster hardcopy BER 
35: rem *#*"fuer-alle star-drucker' #*% 
4O rem *** rt % 
50 rem *** sıx% 
60 rem rrRRRRRRRRRRRRE  % 
rn: 


80 bl$=chr$(239) 

90 wh$=chr$(32) 

100 : 

110 open 1,4,1 

120 print#1,chr$(27)+"a"'+chr$(6)+chr$(27)+"e";: rem line spacing s 
etzen 

130 : 

140 for z=0 to 3 

150 : for y=0 to 199 

160 : for x=z*80 to z*80+79 

170‘: locate x,y 

180 : if rdot(2)=1 then print#1,bl$;:else print#1,wh$; 
190 : draw 1,x,y:next x 

200 : print#1 

210 : next y 

220 : print#1,chr$(12); 

230 next z 

240 print#1,chr$(12)+chr$(27)+"a"+chr$(7) 


Ein- und Ausgabe von Grafiken 209 


4.3 Das Abspeichern und Laden von Grafik 


Ebenso wie man "seine" Bilder schwarz auf weiß verewigt wissen 
möchte, will man auch diese Bilder jederzeit im Orginal wieder 
anschauen. Leider stellt der Commodore C16/116 und Plus/4 
hierfür keinen Befehl zur Verfügung. Lediglich mit dem einge- 
bauten TED-Mon, dem Maschinensprachemonitor des C16 (das 
Maschinensprachebuch zum C16/116 und Plus/4 gibt auch über 
diesen ausführliche Auskunft) können Sie Grafiken auf Diskette 
oder Kassette abspeichern, was jedoch recht umständlich ge- 
schieht, zumal Sie diese Routinen von BASIC aus sowieso nicht 
nutzen können. Aber wofür eigenlich besitzen Sie Ihr Grafik- 
buch? In eifriger und strapaziöser Kleinarbeit haben wir für Sie 
herausgearbeitet, wozu Commodore selbst keine Muße hatte! Die 
Screenutilities für die neue Commodoregeneration: 


Zunächst wieder das Assemblerlisting: 


20: 0600 .opt p,oo 
20: 0600 .sym 4 
30: 0600 *= 1536 
31: , 

32: 991 chkcom = $9491 
33: 9d84 getbyt = $9d484 
34: 0c00 video = 3072 
413 ; 

42: 0600 4c Oc 06 jmp savehgr 
43: 0603 4c 41 06 jmp loadhgr 
4a: 0606 4c 7c 06 jmp savelgr 
45: 0609 4c a0 06 jmp loadlgr 
46: > 

50: 060c a9 00 savehgr Ida #<8192 

50: 060e a0 20 ldy #>8192 

60: 0610 85 f8 sta $f8 

60: 0612 84 f9 sty $f9 

70: : 

80: 0614 20 91 94 jsr chkcom 

80: 0617 20 84 9d jsr getbyt 


80: 061la Ba txa 
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80: 061b 48 pha 

90: ; 

100: 061c 20 c9 ff jsr $ffcY9 
100: 061f a9 00 Ida #<8192 
100: 0621 20 d2 ff jsr $ffd2 
100: 0624 a9 20 \da #>8192 
100: 0626 20 d2 ff jsr $ffd2 
110: - 

120: 0629 a2 1f Idx #31 
130: 062b a0 00 Idy #0 
140: ’ 

150: 062d b1 f8 lab1 Ida ($f8),y 
160: 062f 20 d2 ff jsr $ffd2 
170: 0632 c8 iny 

180: 0633 dO f8 bne Llab1 
190: , 

200: 0635 e6 f9 ine $f9 
200: 0637 ca dex 

210: 0638 10 f3 bpl Labi 
220: : 

230: 063a 20 cc ff skipl jsr $ffcc 
240: 063d 68 pla 

240: 0O63e 4c c3 ff jmp $ffc3 
250: ’ 

260: 0641 a9 00 loadhgr Ida #<8192 
260: 0643 a0 20 Idy #>8192 
270: 0645 85 f8 sta $f3 
270: 0647 84 f9 sty $f9 
280: s 

290: 0649 20 91 94 jsr chkcom 
290: 064c 20 84 9d jsr getbyt 
290: O6Lf Ba txa 

290: 0650 48 pha 

300: ’ 

310: 0651 20 c6 ff jsr $ffc6 
310: 0654 20 e4 ff jsr $ffe4 
310: 0657 20 e4 ff jsr $ffe4 
320: ’ 

330: 065a a2 20 Idx #32 


340: 065c a0 00 I\dy #0 
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350: s 

360: 065e Ba lab2 txa 

360: 065f 48 pha 

360: 0660 98 tya 

360: 0661 48 pha 

360: 0662 20 e4 ff Jsr %$ffe4 
360: 0665 dd c0O 06 sta temp 
360: 0668 68 pla 

360: 0669 aß tay 

360: DO66a 68 pla 

360: 066b aa tax 

370: 066c ad cO 06 Ida temp 
370: 0O66f 91 f8 sta ($f8),y 
380: 0671 cd iny 

380: 0672 dO ea bne lab2 
390: . 

400: 0674 e6 f9 inc $f9 
400: 0676 ca dex 

400: 0677 dO e5 bne lab2 
410: s 

420: 0679 4c 3a 06 jmp skip! 
430: 2 

440: 067c a9 00 savelgr lda #<video 
440: 067e a0 Oc \dy #>video 
450: 0680 85 f8 sta $f8 
450:- 0682 84 f9 sty %f9 
460: s 

470: 0684 20 91 94 jsr chkcom 
470: 0687 20 84 9d jsr getbyt 
470: 068a 8a txa 

470: 068b 48 pha 

480: s 

490: 068c 20 c9 ff jsr $ffc9 
490: 068f a9 00 Ida #<3072 
490: 0691 20 d2 ff jsr $ffd2 
490: 0694 a9 0Oc Ida #>3072 
490: 0696 20 d2 ff jsr $ffd2 
500: - 

510: 0699 a2 04 Idx #4 


510: 069b a0 00 Idy #0 
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510: 


0694 4c 2d 06 
520: , 
530: 0620 a9 00 loadlgr Ida 
530: 06a2 a0 0Oc 
540: 06a4 85 f8 
540: 0626 84 f9 
550: ; 
560: 06a8 20 91 94 
560: 0O6ab 20 84 9d 
560: 0O6ae Ba 
560: 0O6af 48 
570: ® 
580: 06b0 20 c6 ff 
580: 06b3 20 e4 ff 
580: 06b6 20 e4 ff 
590: s 
600: 06b9 a2 04 Ldx 
600: DO6bb a0 00 
600: DO6bd 4c 5e 06 
610: 3 
620: 06c0 00 temp 
10600-06c1 
no errors 
symboltable: 
temp 06c0 loadlgr 06a 
loadhgr 0641 skipi 063a 
video 0c00 getbyt 9484 


11 symbols defined 


danach der Basiclader: 


jmp 


Ldy 
sta 
sty 


jsr 
jsr 
txa 
pha 


jsr 
jsr 
Jsr 


Ldy 
jmp 


savelgr 


chkcom 


Lab1 


#<video 
#>video 
$f8 
$f9 


chkcom 
getbyt 


$ffc6 
$ffe4 
$ffe4 


HL 
#0 
lab2 


.byt 0 


067c 
062d 
9491 


lab2 
savehgr 


065e 


Lab1 0680c 


100 rem KERKKTHT HT TI I A a a a a a a a a a 


110 rem *** 
120 rem *** 
130 rem *** 


laden und speichern 


ak% 


ki% 


ux% 
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140 rem *** der text- /hgr grafik *** 


150 rem Kir ---- nun nun nenn nenn Kr% 
160 rem *** Kr% 
170 rem rel 
180 : 


190 for x=1536 to 1728 
200 read a$:a=dec(a$):poke x,a:p=pta 


210 next x 

220 3 

230 if p=25078 then print "ok":else print "fehler in da- 
tas!!IN:stop 

240 : 

250 rem assemblerdatas 

260 : 


270 data 4c,0c,06,40,41,06,4c,7c,06,4c,a0 
280 data 06,39,00,30,20,85,f8,84,f9,20,91 
290 data 94,20,84,9d,84,48,20,c9,ff,a9,0O 
300 data 20,d2,ff,a9,20,20,d2,ff,a2,1f,a0 
310 data 00,b1,f8,20,d2,ff,c8,d0,f8,e6,f9 
320 data ca,10,f3,20,cc,ff,68,4c,c3,ff,a9 
330 data 00,20,20,85,f8,84,f9,20,91,94,20 
340 data 84,9d,83,48,20,c6,ff,20,e4,ff,20 
350 data e4,ff,a2,20,20,00,84,48,98,48,20 
360 data e4,ff,8d,c0,06,68,38,68,aa,ad,cO 
370 data 06,91,f8,c8,d0,ea,e6,f9,ca,d0,e5 
380 data 4c,3a,06,39,00,20,0c,85,f8,84,f9 
390 data 20,91,94,20,84,9d,84,48,20,c9, ff 
400 data a9,00,20,d2,ff,a9,0c,20,d2,ff,a2 
410 data 04,20,00,4c,2d,06,29,00,20,0c,85 
420 data f8,84,f9,20,91,94,20,84,9d,8a,48 
430 data 20,c6,ff,20,e4,ff,20,e4,ff,a2,04 
440 data a0,00,4c,5e,06,00 


und nun die Erklärung: 


sys 1526,1f 


214 Das Grafikbuch zum C16, C116 und Plus /4 


Dieser Befehl gibt eine hochauflösende Grafik auf Diskette oder 
Kassette aus. Zuvor muß jedoch mit dem OPEN-Befehl eine 
Datei eröffnet werden, auf die die Grafik anschließend abgelegt 
wird. Das geschieht wie folgt: 


open If,gerät,1,"grafikname" 


sys 1529,1f 


Äquivalent zum vorherigen Befehl funktioniert nun dieser, nur 
daß er die Grafik nicht speichert, sondern lädt. Vorher muß 
wieder der OPEN-Befehl folgen, wobei nur die Il durch eine °’0’ 
ersetzt werden muß. 


sys 1532,1f 


Dieselben Rituale gelten auch für die Textgrafik. Durch diesen 
Befehl wird nun die Textgrafik auf Diskette abgespeichert. 
Auch hier wieder der vorweggestellte OPEN-Befehl, wie bei 
Befehl Nr. 1. 


sys 1536,1f 


Nun folgt das Laden der Textgrafik, welches sich genauso wie 
das Laden der hochauflösenden Grafik vollzieht, nur mit dem 
Unterschied, daß nicht die hochauflösende, sondern die Text- 
grafik verändert wird, 
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Anhang A 





Nützliche Utilities 


In diesem Anhang wollen wir Ihnen einige nützliche (insgesamt 
3) Utilities vorstellen, also Programme, die Sie bei irgendwel- 
chen Programmierarbeiten unterstützen. Das sind Programme, 
die auch wir bei unseren Arbeiten an diesem Buch benutzt ha- 
ben. 


Shape-Editor 


Fangen wir zunächst mit einem Shape-Editor an. Das ist ein 
Programm, welches in der Lage ist, Shapes zu editieren, und 
anschließend, mit einem weiteren kleinen Hilfprogramm, in 
DATA-Zeilen abzulegen, so daß Sie nach einem solchen Erzeu- 
gungsdurchgang dieses Shape wann und wo immer Sie wollen in 
Ihren Programmen parat haben. Kommen wir zunächst zum Li- 
sting: 
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100 EDLOR 0,1:E0OLOR % 31:COLOR 1,6 

110 BA=-102+: TB=-1319: AT-239 

120 : 

130 REM --- SHAPE EDIT 

140 : 

150 SENCLR 

160 GRAPHIC 1 

170 FOR X=-0 TOD 38:FOR Y-0 TO 23 

180 LBECATE X+140,Y*+90:1IF RDOTC2I=1 THEN POKEBA+rX+4O*Y 42: 
ELSE ' POKEBAFXFTIOY 46 

190 NEXT Y,X:GRAPHICO 

2ELOO : 

210 X=0:Y=0:50T0O 400 


230 RL=PEEKCBA+X+40*Y)-12B 

e40 GETKEY AS:POKE BA+X+40*Y, RL 

E30 3F AS-EHRSTITD THEN rl 

P60 IF AS="L” THEN 530 

270. IF AS=”"5” IHEN 45D 

eB80 IF AS="E” THEN 630 

230: IF RS=ECHRSEINS)I IHEN Y-Y-1 

300 IF AS=CHRSC2I) THEN X=X+1 

310 IF AS=CHRS(157) THEN.-X=X-1 

ge IF AB®9R, THEN "CHAR 5 KEN, 9 DRAD- TE, X 71307 Y#90: X 1 
330 IF AS-EHRSCIEO) FEHEN: CHAR 55%, 1,7.” DRAU, 05,%+140, Y+90 : X-X+1 
340. IF AS=-CHRSTI13) THEN X=0;Y-Y#+1 

358. IF X<0O THEN YaY-1rX=Sß:EESE IF RR38IHEN VWYFIERD 
360: IF )Y< 0: [IHEN.Y=O:ELSEIIE) Y>23/TREN: Y-23 

370 IF AS="B”- THEN. BRAPHIC.- 1:BEIKEY AS: SRAPHIC.DO 

380 IF AS=-CHRSC147) THEN GRAPHIC 1,1:G6RAPHIC 0:60T0 150 
390 IF AS=CHRSC27) THEN RUN 

400 RL=PEEKCBA+X+40*Y)+12B 

410 POKE BA+X+40*Y,RL:GDITD 230 


=#30 REN = SAVE 


450 GOSUB 690 

460 OPEN 1,6A,1,F$ 

470 SSHAPE A$,140,90,179,114 

480 PRINT#1,LENCA$):FORI=1 ID LENCAS): 
PRINT#1 ,ASCCMIDSCAS$,I,1)):NEXT 
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CLOSE 1: RUN 
REM --- LOAD 


GOSUB 690 

OPEN 1,6A,0,F$:A$="” 

INPUT#1 ,A:FORI=1 TO A: INPUT#1 , A2: AS=A$+CHRSCA2): NEXT 
CLOSE 1 

GRAPHIC 1,1 

GSHAPE AS$,140,90 

GRAPHIC O:RUN 


REM --- ENDE 


SCNELR: PRINT”OIRKLICH ?”:GETKEY A$: IF AS="J” 
THEN 640: ELSE RUN 

PRINTCHRS$C1479;, "DELETE -1170” 

POKE TB,19:POKE IB+1,13:POKE AT,2 


REM --- 1/0 OPERATION 


SCNELR: PRINT ”"S3DMISK DDER STWAPE ? >”, 
GETKEY AS: IF AS<>"D”’AND AS<>”T” THEN 700 
PRINTAS: IF A$S="D” THEN GA=B:ELSE GA=-1 
INPUT”FILENAME”;F$ 

RETURN 
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Nun zur Erklärung: Nachdem Sie das Programm geladen haben, 
starten Sie es mit RUN. Danach tut sich erst einmal eine Weile 
gar nichts. Anschließend erscheint ein Editorfeld, auf dem sich 
ein Cursor befindet, den Sie durch die Cursorsteuerungstasten, 
ganz so wie Sie es gewohnt sind, bewegen können. 


Punkte setzen können Sie, indem Sie die Leertaste drücken. 
Sollte unter dem Cursor schon ein Punkt gesetzt sein, so wird 
beim Betätigen der Leertaste dieser gelöscht. 


Mit den Tasten "L" und "S" können Sie Ihr Shape von Diskette 
oder Kassette einladen oder abspeichern. Der Computer fragt Sie 
dann nach dem Filenamen und führt die gewünschte Operation 
aus. 


Die Taste "B" führt Sie in die hochauflösende Grafik, wo Sie Ihr 
gerade editiertes Shape im Originalzustand betrachten können. 
Zurück zum Editierfeld gelangen Sie mit jeder beliebigen Taste. 


Ein Druck auf die "RETURN"-Taste setzt den Cursor an den 
Anfang der nächsten Zeile. 


Um das Shape zu löschen, bedienen Sie sich der "CLR"-Taste. 
Danach dauert es einen Moment, bis das Editorfeld wieder auf 
dem Bildschirm erscheint. 


Schließlich gibt es noch die ESC-Taste, die sozusagen der Reset- 
Taster des gesamten Systems ist. Wird sie gedrückt, so kommt 
dieses einem Neustart des Programms gleich. 


Nun will ich noch einmal, der besseren Übersicht halber, alle 
Funktionen unseres Shape-Editors tabellarisch zusammenfassen: 
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Taste Funktionsbeschreibung 

ESG Neustart des Programms 

CRSR-Tasten Cursorsteuerung 

SPACE Löschen/Setzen eines Punktes 

"B" Shape ım Original berachten 

8 Laden eines Shapes 

u Speichern eines Shapes 

"CLR" Löschen des Shapes 

"RETURN" Setzen des Cursors an den Anfang der 


nächsten Spalte 


Shape-Generator 


Anschließend gleich noch ein Programm. Dieses Programm er- 
zeugt nämlich aus einem Shape, dessen Filenamen Sie beim Start 
dieses Programms angeben müssen, Data-Zeilen, in welchen das 
Shape abgespeichert wird. So können Sie jederzeit Ihr Shape 
verwenden, ohne vorher umständlich mit GSHAPE und SSHAPE 
hantieren zu müssen: 
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FREEM + a ale are ale ae ah ade ale ale ale an Die ae De De ale Die ale ae ae ae ae ae ae a ee ee 


REM *%*%* We 

REM ** SHAPE IN DATA-ZEILEN NEHMEN ** 

REM *%* “%* 

REM ** x 

REM *% FUER SHAPODMAT 16 *%* 

REM aa a 

FREEM tee ae ae ae ae ae ae ee ae de he ehe ee ae ee ee ae ae 

SCNECLR 

PRINT”SHAPES NVON SHAPOMAT 16 WERDEN IN DATA-” 


PRINT”ZEILEN GENERIERT. SHAPE WIRD GELADEN” 


CHAR1,2,5,””: INPUT”FILENAME”;FS 
CHAR1,2,7,”"ADWISK DDER 3TMAPE ? >” 


GETKEY A$: IF A$<>"D”’AND AS<>”"T” THEN 100 
PRINTA$S: IF A$="D"” THEN GA=B:ELSE GA=1 
REM --- LOAD 


OPEN 1,6A,0,F$:A$="”" 

INPUT#1,A:FORI=1 TO A: INPUT#1 ,A2:AS=AS+CHRSCA2)I: NEXT 
CLOSE 1 

GRAPHIC 1,1 

GSHAPE A$,140,90 

GRAPHIC CLR 


REM --- EINGABEN 


SCNELR 
INPUT”STARTZEILENNUMMER :”;S2 
IF S2<500 THEN 260 


INPUT”SCHRITTWEITE 5 
Ir 52+130*5W >65535 THEN PRINT”"NICHT MOEGLICH! !”:GOTO 260 


REM --- UEBERNEHMEN IN DATA-ZEILEN 
PRINTCHRSC147) 


FOR I=0 TO 7 
PRINTSZ; ”DATA”; 
:FOR T=1 TO 16 
B=ASCCMIDSCA$, I*16+T,1)) 
: PRINT RIGHTSCHEXS$CB),2)+”,”; 
: NEXT 
PRINT CHR$(C20):52=S2+SU 
NEXT 


B=ASCCMIDSCAS,129,19) 

PRINTSZ; ”"DATA”+RIGHTSCHEXSCB)I,2):REM LETZTER WERT 
POKE 842,13 

FORI=1 TO1O:POKE 842+1,13:NEXT 

POKE 208,10:END 
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Datawandler 


Das nun folgende Programm ist so einfach wie nützlich. Es ge- 
neriert nämlich aus Assemblerprogrammen Data-Zeilen auf sehr 
komfortable Weise. Das Programm an sich ist selbsterklärend, 
ich will an dieser Stelle nur ein paar Worte zu den Funktionen 
des Programms sagen, die es erzeugt: 


Dieses Programm, das die Einleseroutine übrigens schon enthält 
(!!), ist in der Lage, Fehler, die eventuelle Abtipper dieses Pro- 
gramms gemacht haben, zu erkennen. Es meldet den Fehler dann 
in der entsprechenden Zeile. Alles was Sie dann noch zu tun ha- 
ben, ist, die entsprechende Zeile zu überprüfen und zu berichti- 
gen. 


Nun das Programm: 


10 REM ——— DATA-GENERATOR ------ 
12 :; 

14 INPUT ”STARTADR. MC-PRG ”;5A 
16 : 

18 INPUT ”ENDADR. MC-PRG ”- EA 
ED : 

e2 IF SA>EA THEN 14 

e4 : 

26 INPUT ”ERSTE ZEILENNUMMER” ; ZN 
eB : 

30 s:: IF ZN<=100 THEN 26 

36. : 

34 INPUT ”SCHRITTWEITE ”. SW 
36 : 

38 SCNCLR 

40 : 

42 PRINT ZN; "DATA ”; 

“4: 

46 FOR I=SA TO SA+1O0 

4B : A =PEEKCI)D 


5D : AS=HEXSCA) 
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Se : AS=-RIGHTSCAS,2) 
5% :: PRINT AS;”,”; 

S6 NEXT I 

58.13 

60 PRINT CHRSC20) 

62 


B4 PRINI ”ZN="7 ZN: 2580#? BU: "TSASFTBRZ” SER": ER 


68 PRINT : PRINT. 
70 PRINT ”GOTD 86” 
72 : POKE 1319,19 


74 % FOR I=-1320 TOD 1320+3 
76 : PÜKSE 1,13 

78 : NEXT I 

B0 ,:, PORE 239,4 

82 END 

Br: 

BE SA=-SA+11: ZN=ZN+SW 

BB : 

90 IF SA<EA THEN 38 

92 : 


s4 PRINTCHRSC147)+”"DELETE-100” 
96 PRINT: PRINT: PRINT”DATA-ZEILEN WURDEN GENERIERT” 


100 POKE 1319,19: POKE1320, 13: POKE2E33,2:END 
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Anhang B 


Tabellierung aller Control-Funktionen 


CTRL -K- & CHRS$S(11): 
Die Umschaltung Klein/Groß und Groß/Grafik wird verboten. 


CTRL -L- & CHR$(12): 
Die Umschaltung zwischen den beiden Alternativzeichensätzen 
wird wieder erlaubt. 


CTRL -M- & Chr$( 13): 
Der Cursor wird an den Anfang der nächsten Zeile gesetzt 
(Carriage-Return). 


CTRL -N- & Chr$( 14): 
Es wird von Groß/Grafik- auf den Klein/Groß-Zeichensatz 
umgeschaltet 


CTRL -[- & CHRS$(27): 
entspricht Escape. 
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Anhang C 


Tabellierung aller ESC-Funktionen 


ESC A 


ESC B 


ESC C 


ESC D 


ESC I 


ESC J 


ESC K 


ESC L 


ESC M 


Der automatische Einfügemodus wird eingeschaltet, d.h. 
werden Zeichen eingegeben, so werden diese in den 
bestehenden Text eingefügt und dieser nicht über- 
schrieben. 


Durch diese Tastenkombination wird die momentane 
Cursorposition als rechte, untere Ecke eines Bild- 
schirmfensters definiert. 


Der durch ESC A aktivierte automatische Einfügemodus 
wird wieder ausgeschaltet, also der UÜberschreibmodus 
aktiviert. 


Die aktuelle Bildschirmzeile wird gelöscht und der 
Bildschirmbereich unter der momentanen Cursorposition 
um eine Zeile nach oben verschoben. 


Fügt oberhalb der Cursorposition eine neue Zeile ein 
und rollt das Bildschirmfenster um eine Zeile nach un- 
ten. 


Der Cursor wird an den Anfang der aktuellen Bild- 
schirmzeile gesetzt. 


Der Cursor wird hinter das letzte Zeichen der aktuellen 
Zeile gesetzt. 


Das Bildschirmscrolling wird erlaubt. 
Das Bildschirmscrolling wird verboten. Bei Überschrei- 


tung der untersten Zeile wird ein Cursor-Home ausge- 
führt. 
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ESC N 


ESC O 


ESC P 


ESCQ 


ESC R 


ESC T 


Ein Tip 
"HOME 


Hiermit wird der Bildschirm wieder auf Normalgröße 
gebracht und gelöscht (siehe ESC R). 


Diese Tastenkombination besitzt die gleiche Funktion 
wie die weiter oben beschriebene Tastenkombination 
ESC-ESC. 


Die momentane Zeile wird vom Zeilenanfang bis zur 
Cursorposition gelöscht. 


Die momentane Zeile wird von der Cursorposition bis 
zum Zeilenende gelöscht. 


Verkleinert den Bildschirm auf 38 Spalten. Dieses kann 
von Vorteil sein, wenn Sie oft mit Soft-Scrolling arbei- 
ten. 

Es wird die rechte, obere Ecke des Windows bestimmt. 


zum Window-Handlıng: Durch die Tastenkombination 
YHOMEY", wır das aktuelle Window gelöscht. Selbst- 


verständlich kann die Ausgabe auch durch das PRINT-Statement 


erfolgen. 


Der WINDOW-Befehl, den Sie vielleicht vom C128 her kennen, 


existiert 


zwar nicht auf diesem Computertyp, kann jedoch durch 


ein kleines BASIC-Programm, welches später dann in Ihren ei- 
genen Programmen als Unterroutine aufgerufen werden kann, 
diesen ersetzen: 


50000 rem AKUTE N A a a a a a a a h a a 
50010 rem *** window-simulation RER 
50020 rem *** Param: x1,y1,x2,y2 EM 
50030 rem KRKCKKKKKKKTH TI TI IT N N A De N N a a ah a a a a 
50040 : 

50050 char ‚x1,y1,chr$(27)+"t" 


50060 char ‚x2,y2,chr$(27)+"b" 


500 


70 return 
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Und noch ein weiterer Tip: Der CHAR-Befehl kümmert sich 
leider nicht an die vorgegebene Window-Definition. Dieses Win- 
dow-Handling funktioniert nur, wenn Bereichsüberschreitung 
des Cursors durch die betriebsinterne BSOUT-Routine über- 
nommen wird, wie das z. B. im BASIC-PRINT-Befehl geschieht. 
Ebenso wird der Cursor niemals relativ zu der angegebenen 
Window-Definition, sondern immer aus der normalen Bild- 
schirmgröße heraus berechnet. 
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Anhang D 
ASCII- und Bildschirmcodetabellen 





I Chr$ % Foke kKodes | 








I Dez I Hex I POKE- Zeichen I CHR$- Zeichen I CHR$- Zeichen | 
l I IGross I Klein | Gross I Klein I 
4 — 4 4} 0. Bonn | 


I922 | sap I ı oa l Keine Funktion | 
I 821 1 $s8g1 I a I a l Keine Funktion | 
Ie982 ı 21 EB Ib I Keine Funktion | 
I89032 1 $983 1 ia I Keine Funktion | 
19084 1 $94ı I> I << I Keine Funktion | 
IS IS | I I Weiss | 
I 886 I 8b I En = I Keine Funktion I 
I007 1971 oo I I Keine Funktion | 
Iı@88 I $08 I A-1 I I Shift Commodore verboten | 
I 2889 1 $09 I tz I a I Shift Commodore erlauben | 
ısıa ı Ba I I 3 I Keine Funktion | 
Iıgıl I $2b I HZ | R-- I keine Funktion | 
ı8e12 I $2c I L_ | u l Keine Funktion | 
I8012 I sd I I am I Return | 
I 814 I $ße I IM I m | Kleinbuchstaben | 
ISIS I SB Iı I I Keine Funktion | 
I 8164 I $18 ı FR IP I Keine Funktion I 
Ie17 ı si ı a I l Cursor abwaerts | 
ı8Bı8 ı sı2 Iı RR Il I Revers anschalten | 
I 819 I $13 ıI <> | — I Cursor Home | 
I 828 I $14 I T ii | Delete | 
I 221 I $15S I 322 I wa I Keine Funktion | 
I 822 1 $s14 I | m l Keine Funktion | 
I 823 I $17 I 3 | um I Keine Funktion | 
I 824 1 $18 | > | z=s I Keine Funktion I 
I225 1 $19 1 “7 I » I Keine Funktion | 
I 825 I $l1a | = iz l Keine Funktion | 
I 827 ı $ib I LT | LT | Escape | 
I 828 I Sic I = ie I Rot I 
I 829 I $id I _ı | _ı l Cursor rechts | 
I837989 I $ie I Tr | MM I Gruen | 
I 38351 1 si 1 ii I Dunkelblau I 
I 852 1 $29 I l l Space | 
I 833 I $21 I a I 5 I 8 | = | 
I 834 ı $22 I l I su“ I nn I 
I 835 I $2I 1 ## I ## | Ar | BE I 
I 83564 I $24 I = I => I > I a = I 
I 837 ı $25 I 7 | = I ae I ae I 
I 8358 I $24 I 3x I = I Zr I =x | 
839 1 827 | . | en | ern | = I 
I 8498 I $28 I < I C I « I « I 
I 841 I $29 ı > | > I > I > | 
I 842 I $2a I DK | De | Rx | ac l 
ı 843 I $2b I —-— I I —— | zu I 
I 845 I $2d I —— De | — | or 2 I 
I 846 I $2e I er I - I Bi | > | 
I 9847 1 $2# I 2 | 97 I > | 9 I 
I 9848 I $30 I = I I sz5 | gz5 I 
1849 I $721 I u | u I ni I u I 
I 285989 ı s32 1 == ı ==> | => | — I 
I9051 1331 I > I a | a | 
I 8052 1 834 1 I I I I | 5 I 
55 1 9353 1 i I en | —_— I 
I 854 1 $364 I 0 I l «> I «> I 
| 255 1937 1 = ze l > l ar l 
I 95 ı sSSB I 23 ıIı = I 3 I I I 
I 857 1 85391 — ii l <> I — l 
I 9058 I $3a I = l = l == l = l 
8597 11-836: I = | = ! = l = l 
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Anhang E 


Stichwortverzeichnis 


A 

BEWERTUNG nern en 133 
NETTER EWIEEE nie eireeuereReere 192 
B 

a en a ger eeee 15, 141 
Buruchmunssechrittweile „uesneueieneeeneeengerge 192 
BUOBER EIER ennerrreraTEEE—— 104, 152, 206 
Bildschirms paschir ui 104 
BES N en ee 128 
RER u ee ehren 115 
BIETE ee Nee ee 131 
C 

CHAR auuununaanunnnasaeiuruekennn 23, 34. 170 
er eeeeeeeeeeree 19, 140, 178 
DE FR erinnere 109 
RESET nun 117 
RELSENSERÜCT nennen 106, 117 
D 

BERN ie 24, 81, 131, 139 
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F 

ER ers eieee EeeEEETET 105 
FRREE SIEBERT een 180 
FR EEE I een 180, 186, 188 
G 

BRAITTIEKTE ee reriieese 0.51.1114 
ER ee 50, 114 
FE ee 46, 170 
BET IRDRLENDE eier 11 
LETTER anne ee 12 
ee ET 55 
H 

NIE ER ers 197 
FIITOWETBEFDDATABEN, . enesensenesenanneeereeereeeeeeeee 97 
FE DEIN TRETEN 180 
K 

nee eine 127 
ee TE Eee 78 
L 

TE ers 28 
M 

Maschinensprachemoänitür .uuennununenunerenmena 209 
DH. er reeeeeenneraeuhaerere 107 


Miltiesler-BSEatik . unseren ee 14 
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P 

BO EL es een 42 
eG 45 
RE ei EIER LEDER 180 
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Quellennachweise 


Das große Grafikbuch zum Commodore 128 
Durben, Löffelmann, Plenge, Vüllers 

ISBN 3-89011-154-8 

Data Becker Verlag 


Das Grafikbuch zum Commodore 64 
Axel Plenge 

ISBN 3-89011-011-8 

Data Becker Verlag 


Commodore 128 Intern 
Gerits, Schieb, Thrun 
ISBN 3-89011-098-3 
Data Becker Verlag 


Einführung in CAD mit dem Commodore 64 
Heift 

ISBN 3-89011-067-3 

Data Becker Verlag 


64 Intern 

Brückmann, Englisch, Felt, Gelfand, Gerits, Krsnik 
ISBN 3-89011-000-2 

Data Becker Verlag 


Commodore C16 Tips & Tricks 
Baloui 

ISBN 3-89011-168-8 

Data Becker Verlag 


EEE Bücher zu C16, C116 und Plus/4 


Machen Sie mehr aus Ihrem Rechner! Anhand vieler Beispiele 
führt der Autor klar verständlich in den Befehlssatz der Rech- 
ner C16, C116 und Plus/4 ein. Die außerordentlich nützlichen 
Editor-Funktionen werden vorgestellt. 

Das Buch wird abgerundet durch die Erstellung eines prakti- 
schen Anwender-Programmes zur Dateiverwaltung. Die Stär- 
ken der Programmierung in BASIC werden im Überblick ver- 
deutlicht. Für Einsteiger und Fortgeschrittene gleichermaßen 
interessant. 


IE EI In, 


u: 


ln 
IE 


EIN DATA BECKER BUCH 





Baloui 

Das große BASIC-Buch C16, C 116, Plus/4 
ca. 250 Seiten, DM 29,— 

ISBN 3-89011-204-8 


BE Bücher zu C16, C116 und Plus/4 


Viele Computerbenutzer, die bislang die Hemmschwelle zur 
Maschinensprache nicht überwunden haben, erhalten hier 
die perfekte Einführung in den Befehlssatz des 7501-Mikro- 
prozessors. Neben leichtverständlicher Beschreibung aller 
7501-Befehle werden viele Betriebssystemroutinen unter die 
Lupe genommen. 


Aus dem Inhalt: 


Von BASIC zu Maschinensprache 

— Der Maschinensprachemonitor 

— Der 7501-Prozessor und sein 
Befehlssatz 

— Ein- und Ausgabe von Zeichen in 
Maschinensprache 

— Einbinden von Maschinenprogram- 
men in BASIC-Programme 

— Der BASIC-Lader 

— Routinen des Betriebssystems 
richtig genutzt 

— Die Vektoren des Betriebssystems 

— Interruptprogrammierung 

— Beispielprogramme mit trickreichen 
Utilities 

— Zeropage-, Befehlscode- und 

Umrechnungstabellen 


EIN DATA BECKER BUCH 





Vüllers 

C16, C116, Plus/4 Maschinensprache 
ca. 300 Seiten, DM 29,- 

ISBN 3-89011-206-4 


BEE Bücher zu C16, C116 und Plus/4 


C16 Tips und Tricks bietet eine hochinteressante Sammlung 
von Anregungen, Ideen und fertigen Lösungen zur Program- 
mierung und Anwendung Ihres C16/116. Eine wahre Fund- 
grube für jeden, der auf dem Commodore 16 eigene Pro- 
gramme schreiben will! 


Aus dem Inhalt: 
Baloui 


— Hinweise zur Eingabe der Pro- 


gramme 
— Alle Programme für Kassetten- und 
Diskettenbetrieb 
— Anwenderprogramme aus den 
Tips & Tricks & Tricks Bereichen Unterhaltung, Grafik, 
Text- und Dateiverarbeitung, 
Mathematik 
— Viele Utilities, wie Hardcopy auf 
Drucker, REM-Killer, Mergen von 
einzelnen Programmteilen, Shape- 
Editor 
— Etikettendruck 
— Lottozahlen 
— Datumsberechnung 
— Die wichtigsten Tips & Tricks 
— Von BASIC zu Maschinensprache 
— Wichtige Zeropageadressen 
— Betriebssystemroutinen 
— Routinen des BASIC-Interpreters 





Eine Fundgrube für den 
Commodore 16 Anwender 
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Baloui 

C16 Tips & Tricks 

201 Seiten, DM 29,- 
ISBN 3-89011 - 168-8 


EEE Bücher zu C16, C116 und Plus/4 


Plus/4 Tips & Tricks ist eine Sammlung von Anregungen, 
Ideen und fertigen Lösungen zur Programmierung und 
Anwendung Ihres Plus/4. 

Alles, was Sie brauchen, um eigene Programme zu schreiben. 


Aus dem Inhalt: 


Baloui 


— Hinweise zur Eingabe der 


Programme 
Commodere___— — Verwendung der Datasette 
— Anwenderprogramme 
PLUS /’4 Spiele 
Graphik 


Text- und Dateiverarbeitung 

Kfz-Uberwachung 

Mathematik 

Hardcopy 

Merge 

Shapeeditor 

EINDIATA BECKER BUON — Die wichtigsten Tips & Tricks 

— Von BASIC bis ASSEMBLER 

— Die wichtigsten ZEROPAGE- 
ADRESSEN 

— Routinen des Betriebssystems und 
des BASIC-Interpreters 

— Tips & Tricks für Fortgeschrittene 


Tips : Tricks 





Baloui 

Plus/4 Tips & Tricks 
222 Seiten, DM 29,- 
ISBN 3-89011-203-X 


BEE Bücher zu C16, C116 und Plus/4 


Effektiv und kreativ mit dem Plus/4 und seiner eingebauten 
Software zu arbeiten ermöglicht dieses Buch. Im ersten Teil 
werden zahlreiche Ideen, Anwendungen und praktische Nut- 
zungsmöglichkeiten der integrierten Software beschrieben, 
der zweite Teil enthält viele interessante Programmiertips und 
Tricks und eine Reihe kompletter Anwendungsprogramme. 


Aus dem Inhalt: 

Froitzheim : Kausmann 
Ef k i — Abspeichern ganzer Grafikseiten 

ekliv — Menügesteuerte Disk-Hilfe 

— Verbesserte Eingaberoutinen 
Listschutz 
Erstellung von Balkengrafiken 
Funktionsplotter 
Komfortable Dateiverwaltung 
Programm zur Entscheidungshilfe 
und vieles mehr 


Kreativ 


mit dem COMMODORE PLUS 4 
Eın Wegweiser zum optimalen Einsatz 


EIN DATA BECKER BUCH 





Froitzheim, Kausmann 

Effektiv und kreativ mit dem Plus/4 
244 Seiten, DM 49,- 

ISBN 3-89011-073-8 
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